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Changes afoot! 


Since the demise of the ‘Fat Golden Boy’ of 
publishing, Bob Maxwell, and his slip into the 
waves off the Canaries in November last year, 
it became quite clear that what was regarded 
as the ‘status quo’ of publishing, as far as 
Sinclair QL World, and many other titles, were 
concerned would not remain the same forever. 
In the final analysis there were bound to be a 
few changes. 

The management buyout at HHL brought with 
it restructuring demands that brought them to 
decide that Sinclair QL World would run more 
efficiently in the hands of a smaller specialist 
publisher rather than being tied to their 
standard print methods. 
~ So it comes, perhaps as no surprise to some, 
that your magazine has changed hands and 
now rests with a small but solid publisher 
located far from the elevated towers of central 
London. Ironic, is it not, that the location of the 
magazine is now within ten miles of Maxwell's 
original premises in Oxford? We hope that that 
will be the only similarity, however. 

What can we promise you? Well, as a we are 
a small publisher, you will know that Sinclair QL 
World is much, much more important to its 


owners than ever before in its history. That's | 
part of the beauty of small operations - we're in | 


tune with people's personal interests., instead 
of thinking of everything in bulk terms. : 


It's clear to anyone in the know that there are 
more QL users than there are QL World 
readers, so from those who are ‘part timers’ 
we'd like to hear what you like to see in these 
modest pages that would return you to the fold. 
Perhaps that ought to be called the domain of 
the ditherers - those who might buy the 
magazine depending on the detailed contents. 

For subscribers - a small but very important 
word. Your subscription is still absolutely valid, 
and your copies will arrive until the end of your 
subscription period, You'll notice that the current 
cover is dated May/June ‘92. Basically, this year 
we shall be publishing one fewer editions than 
we normally do, to allow us a month to get all the 
various systems into operation. After that it's 
back to normal. If you are a subscriber, you'll 
have the full twelve copies delivered to your door 
and so your renewal will take place a month later 
than previously. = 

We want to maintain a supportive role with 
both Quanta members and ‘sole users’, and we 
want the QL to remain at the forefront of 
poopie minds. That requires your support. We 

ope that you can give it as much as we give 


you. 


Mark Kasprowicz 
: Publisher 


iracle Systems were reported 

to be selling Gold Cards for 

£225 and Trump Cards for £75 

at the March All Formats com- 
puter fair in London (see this month's 
review on page XX). It is quite likely that 
the sales of both Trump Cards and Gold 
Cards have exceeded Miracle’s initial ex- 
pectations and allowed them to obtain 
better prices by buying larger quantities of 
components. There is a continuing down- 
ward trend in microcomputer hardware 
prices, although we can't expect it to affect 
a small market such as the QL one as 
much as it does some others. 

Dilwyn Jones Computing is now supply- 
ing version 2.01 of WinBack, the hard disk 
backup program. This version is a consid- 
erable improvement upon the one reviewed 
several months ago. It incorporates the 

| facility to split large files between floppy 
disks (up to 95 sections! They can be re- 
assembled when restored to hard disk), 
support for up to eight physical hard disk 
drives (for ST QL-emulator users), 
enforcable additional backups of files (an- 
swering my complaintthat an aborted back- 
up ‘stopped play’ because the archive bit 
was set on files which had been copied), 
exclusion of specified files from the backup 
process, a directory rebuild facility to allow 
directory structure to be recreated when 
the hard disk is reformatted, better behav- 
iour under the Pointer Environment, and 
full functionality on the ST with QL emula- 
tor, In addition, a fast floppy disk copier 
routine, a utility to alter dataspace, and a 
device driver (called BLACK_HOLE) like a 
null device for fast dumping of output and 
testing of output routines, are supplied. 
The upgrade costs just the return postage 
for users who purchased WinBack prior to 
15 February 1992, if they are happy with 
the manual in a Quill or Perfection docu- 
ment file, or £3 if they want it printed. The 
full price to new purchasers is still £25. 

Itis interesting to see how much mileage 
can be obtained from one subject, and the 
matter of obtaining extra capacity out of 
double-density 3.5 in floppy disks contin- 
ues to provide material for articles. In fact, 
it was an advertisement in an American 
magazine, that caught my eye this time. 
The advert was largely in the form of an 
article, written by someone stated to be a 
consultant on flexible disk design, and the 
gist was that the practice of cutting an 
extra hole in the edge of DD disks, to make 
them look like HD disks to disk drives, was 
doomed - in advance - to failure. As the 


Bryan Davies 
talks about disks, 
hard disks, bad 
disks and 
interfaces. 


advert was placed by a floppy disk sup- 
plier, and the price (andy presumably, the 
profit margin) of genuine HD disks is higher 
than that of DD disks, it is not surprising 
that the hole-cutting procedure was given 
the thumbs-down, but the article was well- 
written and sounded sensible enough. The 
reasons given for condemning the proce- 
dure did not include the obvious one: that 
particles from the hole-cutting can get onto 
the disk surface and cause damage. The 
arguments used were that the magnetic 
coating is thinner and of higher magnetic 
coercivity on HD than on DD disks, and the 
write-head recording currents are also 
higher on HD disks. The thinner coating 
with its higher coercivity requires higher 
current during recording. 


Failure rate 


The astonishing conclusion of the arti- 
cle, following some tests run with high- 
quality DD disks, was that the ultimate 
failure rate was 100% when a 1.44 MB 
format was used. My own experience, with 
about 400 DD disks, is a failure rate that is 
effectively zero, so youcan guess thatlam 
rather sceptical aboutthe comments. There 
are two areas where my own usage of DD 
disks formatted to 1.44 MB is different 
from that referred to in the article; one is 
that no extra holes have to be drilled in DD 
disks for my drive, because it has jumper 
settings for 720 KB and 1.44 MB, and 
apparently takes no notice of the extra 
hole in the HD disk. That means there is no 
risk from loose particles, but that wasn’t 
stated as a problem anyway. The other 
reason may also be linked to the jumper 
settings; it is possible the drive automati- 
cally increases the write-head current when 
the jumpers are set for 1.44 MB disks. 
What happens over along period of time is 
another matter. Maybe data written with 
high current to low-coercivity magnetic 


coating gives errors sooner, but the effect 
would need to be pronounced to be obvi- 
ous, and I’ve not noticed anything over 
several years. Just to add further confu- 
sion, the advert indicated that some 
manufacturers may be putting DD disk 
platters into HD cases and selling them as 
genuine HD disks. Incidentally, the 
cheapest HD disks offered by this supplier 
cost about 30 pence each in lots of 200 - 
wouldn't we be happy to pay this for genu- 
ine HD disks? 

As a tailpiece to this subject, Gerard 
Phelan (see section below) wrote to say 
that Inmac (the commercial PC consum- 
able supplier) quote aclipping level of 80% 
for their ‘best quality’ floppies, against 
40% for the ‘budget’ variety. The American 
article stated that their test DD disks had 
achieved a 70% level, and the ANSI | 
(American National Standards Institute) 
requirement was only 45%. Without going 
into what the ‘clipping level’ is, it can be 
taken that a high figure is desirable, but it 
looks as though even cheap, unbranded 
disks may achieve the ANSI standard. As 
noted in the previous paragraph, errors 
may become more likely as the magnetic 
coating on the disk ages, and there is 
sense in suggesting that disks be re-for- 
matted at intervals of, say, one to two 
years. That is, it is a good idea to copy 
backed-up files to freshly-formatted disks 
after this period, then reformat the old 
disks. This advice is not given solely in 
relation to DD disks which have been 
formatted to HD; re-copying and re-for- 
matting at intervals is a sensible proce- 
dure with any hard or floppy disks. Having 
said that, | must admit to not consciously 
taking this precaution myself, although 
many of my disks get reformatted every 
few months, for one reason or another, 
anyway; there have been no obvious inci- 
dents to suggest ‘old’ back-up copies have 
become corrupted, with either my QL or 
PC systems. . 

The following notes are based on a letter 
from Gerard Phelan, in what, for him, is a 
very short dissertation - only three sides. 
As usual, his comments are wide-ranging, 
which is why this section is separate from 
Readers’ Letters. He went to the QL show 
in Munster, Germany and, from what he 
says, business was quite good there. 

He and Tony Firshman (of TF Services) 
use one-third-height DD Mitsubishi disk 
drives, as | do, and we have all had trouble 
getting them to work with the Gold Card. 
There are detail differences in our thinking 
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regarding what it takes to get the two units 
to co-operate, but the basic answer has 
been to alter the FLP_START and/or 
FLP_STEP function parameters. Gerard 
and Tony now Say that fitting the version 
2.28 rom chip to the GC cures the previous 
incompatibility, although Gerard does say 
that booting from floppy is not 100% reli- 
able until the system has been switched 
on for about 10 minutes. It is good to hear 
of a cure, rather than a work-around, but 
the fact that it has been effected through 
the rom casts more than a little doubt upon 
the explanation previously expressed for 
the problem - that the floppy disk driver 
chip in the GC couldn’t handle the 
Mitsubishi drives. As | pointed out before, 
itis the one-third height drives which are 
involved, not the one-quarter-height ones 
which are now the standard size. 

Miracle Systems have now modified the 
Trump Card manual for use with the Gold 
Card, by adding a supplement at the front. 
3.2 MB HD floppy drives are still proving 
hard to get, but supplies should have been 
received by now. Business for Miracle was 
generally brisk. 

As yet, |’venot seen Jiirgen Falkenburg’s 
hard disk interface, and have no idea of 
how well it functions, other than Gerard’s 
comment that ‘it clearly worked’. As Miracle 
seem, effectively, to have given up on their 
HDD for the moment (for reasons of cost, 

| presumably}, the performance of the JFC 
units is definitely of interest. One major 
advantage of the JFC approach is that 
standard PC hard disk drives and controller 
cards can be used, and this may make the 
overall price lower than the Miracle one. 
The size of the required hardware is con- 
siderable, but sois that of the Miracle HDD 
box. However, the JFC HDD interface 
makes use of the memory space normally 
utilised by the rear rom port on the QL so 
that, although the actual port is free, you 
cannot use a rom at the same time as the 
HDD. Although it was indicated otherwise 
in the February issue, it appears that the 
JFC adapter for the Gold Card fits into the 
64-way expansion port on the QL, not into 
the rom port. 

Jochen Merz was showing QD 4.00 and 
The Lonely Joker (a new game). He also 
sells fext87 Plus-4 in Germany. A UK 
distributor for his range may have been 
announced by now. 

Ergon had a ZX Spectrum Emulator for 
the QL, which should run many Spectrum 
programs (depending on the level of copy- 
protection) but is not exactly fast. Perhaps 
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of more significance is their format-con- 
version program Open World, which can 
produce images in QL Mode 4 or Mode 8 
from Amiga IFF- or GIF- and IBM CUT- or 
TIF-format images. The program was cre- 
ated with the C68 compiler. 

On the Minerva scene, TF Services sold 
all their stock. In addition, someone was 
apparently caught selling a ‘pirate’ copy of 
an old version of Minerva! This is a new 
development, surely? Pirating of software 
is known to be commonplace, but now 
hardware too? As Gerard's letter was dated 
24th March - just a week before April 
Fool’s Day - maybe this report should be 
treated with some caution. Any further 
comment? 


Readers’ letters 


Complaints have been coming in about 
non- or late delivery of version Plus-4 of 
text87. The latest letters come from Peter 
Lund of Minster in Germany and J G 
Wilkinson of Southampton. As indicated 
previously, we were advised that part of 
the delay was due to the program’s author 
being ill for several weeks after Christmas, 
and itis understood that last-minute hitches 
with the changes to the program caused 
some weeks’ delay prior to that. What was, 
perhaps, more worrying was the lack of 
any comment from Software87. We have 
now been assured that, outstanding orders 
have been fulfilled. 

J G Wilkinson has now received Plus-4 
but expresses himself quite unhappy with 
its behaviour. Itis reported that there have 
been some adverse comments appearing 
on BBSs (bulletin boards) too, but | note 
that Plus-4 is now into version 2.00, which 
may incorporate fixes for some of the 
reported problems. A version of Plus-4 for 
the Atari ST is under development. 

Wordprocessor suppliers have not had 
a happy time during the first couple of 
months of 1992. Digital Precision have 
had problems with telephone calls; the DP 
answerphone was effectively tied up and 
inaccessible to callers for about five weeks. 
Authorities were notified and the problem 
was (they hope) solved at the end of 
February. Outstanding enquiries and or- 
ders were dealt with by early March. This 
should mean that L M Furminger has now 
received his copies of the Success CP/M 
emulator and Professional Publisher 
Toolbox 2. The same should apply to the 
orders of Wallace Caister and B Wray. DP 
reports receiving plenty of complimentary 


letters, and very few critical ones, from 
purchasers of Perfection. (This has been 
our experience at QL World, too.) 

There have been complaints about TK 
Computerware from A P Campbell, C 
McKay and DR Scott. As the complaints 
were made some months ago, it is to be 
hoped they have already been sorted out, 
but TK were asked to comment on them 
some time ago and no response has been 
received. Not dealing more quickly with 
complaints inevitably encourages rumours | 
to circulate. 

The unusually high number of complaints 
about suppliers during the past few months 
may cause users to feel the whole QL 
scene is getting shaky, but it should be 
made clear that Digital Precision, at least, 
have called several times, and gone into 
considerable detail about their telephone 
problem and customer's complaints, and it 
is clear that much effort has gone into 
sorting out a situation well beyond their 
control and possibly malicious. DP un- 
derstands that new legislation will be ap- 
pearing in a few months which will make 
the tracing of telephone menaces easier. 

The plea for assistance in getting rib- 
bons for the Panasonic KX-1124 printer 
produced a response from Alex Munden, 
He believes that only the manufacturer's 
ribbons are satisfactory; he has experi- 
enced the usual problem with after-market 
ribbons - fraying at the joint, leading to inky 
fluff getting on the paper. The type of 
ribbon for which the price is given in the 
Information box below has an ink reserve 
that can be activated when print starts to 
look faded. Alex's letter was printed with a 
ribbon in this state, and it looked fine. 

Harking back to the mention some 
months ago of EEC and A Ingrey, the 
latter's complaint about not receiving a 
refund for a keyboard and interface (ap- 
parently lost somewhere in the shipment 
chain) was settled by the time the January 
QL World was available, but this informa- 
tion had not reached me. The only remain- 
ing problem appears to be with the credit 
card company that issued a credit against 
the lost keyboard and interface. The items | 
were subsequently replaced by EEC, soB 
Ingrey had both the goods and his money 
back. To sort the matter out, he agreed 
with EEC that they would bill him again. 
While that is on the face of it a logical step, 
it fell foul of the credit card company’s 
operating procedures. Once the company 
knew the goods (albeit, replacement units) 
had turned up, they wanted to cancel the 
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refund, which would have re- Another user with similar equip- 
sulted in Mr. Ingrey paying twice. menthas asked for help: Alngrey 
So, be clear about procedures has been plagued with corrup- 
when asking for a refund or re- tion of back-up DD disks (about 
placements. EEC incurredaloss seven so far) and he is unable to 
on the deal, as they shipped two pinpoint the source of the trou- 
sets of units and presumably ble. Unless anyone else has ex- 
didn’t have insurance coverage perienced this problem when 
for the lost units. using the GC with DD drives, it 

H F Banks wrote again to say looks as though the finger of 
his system is now working well. suspicion points at the QL itself. 
He had found that a faulty key- One possible solution has been 
board was causing some of his reported: changing the rom chip 
problems. He commented that in the GC to version 2.28. This 
he resets the QL when he uses appears to have been success- 
different formats of disk (he has fulon asystem which previously 
DD and HD drives). This is could be made to produce cor- 
something new to me, but my rupted ED disks ‘to order’. It is 
systemhas DDandED, whereas not known whether the apparent 
Mr. Banks’ problemseemed to bug producing corruption on ED 
relate specifically to HD. Both disks has the same or similar 
our systems have a Gold Card. effect on HD or DD disks. 
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Im stillen Winkel 12 - D-4100 Duisburg 11 
Germany - Telephone & Fax 0203 501274 
New logo, new software and many price reductions (see*) 
QD 4 - Editor using the Pointer Environment, with many new options: 
GOTO BASIC Procedure/Function, Label, improved parameter string, 
print, search/replace, and MenuConfig (the same as Config, but menu- 

driven), £38 Upgrade from V3 £10 
QSpread - Spreadsheet for the pointer Environment. More NEW! 
than 3200 cells. Completely pointer-driven, up to 3 horizontal : 
and vertical splits at the same time. Formulate-orientated, 22 NEW! 
scientific functions, macro functions, help, scrap, etc. £49 
QMenu - Menu Extension V3 QMenu is a very easy to use interface with 
Pe menus (e.g. file select, simple choice boxes, select from lists). 
hese menus may be used by super BASIC, machine code and other 
languages. File-select, dir-select and list-select all re-written with more 
options, multi-columns etc. £12.90 
Update from previous version with new manual £5 
FiFi - the FileFinder FiFi is easy to use and extremely useful. FiFi scans 
devices or directory trees and searches files or filenames for strings. 
Combinations are possible, e.g. String 1 AND string 2 BUT NOT string 3 etc. 
£13" 
DISA - Intelligent Disassembler. Generates ASC!!-output which may be 
assembled using the GST (Macro) Assembler, £27 
QDOS Reference Manual - This book is a must for all machine-code 
programmers. ltexplains how to use QDOS, all traps and vectors, the Thing 
System, the HOTKEY Syst.11 and much more. It shows which features 
work on a QL, an Emulator, how to write compatible for future operating 
systems. 170 pape. £27* 
QPTR - The Pointer Environment Toolkit. Revised manual which de- 
scribes how to use the Pointer Interface and the Window Manager for Super 
BASIC and machine code. Examples on disc, keys, macros and extensions 
for SuperBASIC, £27* 
FLP/RAM Level 2 now with ATR!!! Replacement EPROM for 
SuperQboards (V1.17 onwards, with & without mouse) or TrumpCard 
(please specify!). New Manual! Real sub-directories! QL-Emulator com- 
patible! About twice as fast, with improved slave-block-handling! (not on 
JM-ROMs) £18 
EASYPTR 11 - Create your own Pointer-Env. menus & sprites, use them 
{in your SuperBASIC or machine-code programs. Supports all the PE 
facilities, even split application sub-windows and uses the Menu Extension! 
Many examples ! £49 
SYSTEM - System Tools for QDOS: real file - attributes are added, e.g. 
write-only, hidden or for selected users only. Works even over net and on 
winchester. New TRAP#3. New devices (equiv. to QL-Emu.): named pipes, 
MEM, NUL. 80 new procs & features, e.g. WSET_FATTR, 
WSET_FTYPE,WSET,FVERS, ADIR, ASTAT £27.50 
QDESIGNII- more features, improved and more printer drivers (incl.) laser, 
QSnap which scans text from screen and puts it Into scrap, virtual drawing 
mode on Emulator and Minerva etc, £48. Upgrade from version 1 £13 
VECEDIT Vector-Font-Editor for QDesign £19 
NEW: SER MOUSE - Software driver which allows you to connect a serial 
(9.g.) |IBM-style) mouse to one of the SER ports of the QL, which then 
mimics the QIMI interface. On a 3-button mouse, you have ESC, Wake and 
Sleep in addition, £14 
DIAMONDS £11 - BrainSmasher £12 - Arcanoid £10 - Firebirds £10 - 
SuperGamesPack £25-QShang£14-QSUP System Utility Pack £26 - Thing 
& Eprom Manager £18.50 
QL-EMULATOR for ATARI ST (260, 520, 1040 and all Mega’'s, but no 
STE’s, not yet). This hardware, together with software turns any ATARI into 
a QL. The emulator supports the standard MODE 4 as well as a MODE 4 
in much higher resolution (768x280). It supports real subdirectories (com- 
plete Level 2 device drivers) on floppy, hard-disk and RAM-disc. The 
complete QL emulator ear includes a lot of utility software and 
extensions. If you are interested in an emulator, you should write for more 
information, £139" 
FLOPPY adaptor to connect QL diskdrives to the ST £9 
VERY SPECIAL OFFER; Harddisk unit forthe ATARI ST (without harddisk): 
case for Syquest changeable drive AND 5.25" or 3.5" drive, PSU, host- 
adaptor (100% QDOS compatible), cables, driver, thermo-controlled ven- 
tilator etc. £120 
ACSI-Hostadaptor (QSDOS comp.) to connect SCSI harddisks to the 
ATARI ST £55 
QDOS on a 68030 (in every Mega ST) running at 32MHz: incredible speed 
(approx. 8 times faster than a ST, 20 times a QL) together with new E- 
Driver-Software. Write for more details! Price: 32MHz Version £600, 
25MHz £500 
Technical Printer Manuals: 
EPSON ESC-P/2 for all EPSON 9/24/48 pin printers. 500 pages £27 
HP DESKJET for the Deskjet family £15 
We are the German distributor for Software 87 products 


(German & English versions available!). 
Please add £4.50 for p & p (Europe) or £4.50 for one item and £2.50 for every further 
item (Overseas). All prices excl, V.A.T. E&OE. 
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INFORMATION 


Ribbons for Panasonic Gold Card, ED disk drives: 
KX-P1123/1124 Miracle Systems Ltd. 

£6.50 (type KXP 145), and 25 Broughton Way 

for KX-P1180 £5.50 (type Osbaldwick 

KXP 115), plus post, York YO1 3BG. 


packing and VAT in each Tel. 0904 423986 
case: 


Microsol Ltd. 
1-4 Christina Street 
London EC2A 4PA. QD 4.00, The Lonely Joker, 
Tel. (071) 739-5607 text87: 
Fax (071) 739-5223 Jochen Merz Software 
Im stillen Winkel 12 
W-4100 Duisburg 11 
Germany. 


text87 Plus-4: Tel/fax (from UK) (01049) 203 
Software87 501274 


33 Savernake Road 
London NW3 2JU. 


QL-HDD interface: 
: Jurgen Falkenburg (JFC) 
Minerva: Thanweg 36 


TF Services D-7539 Ersingen 
12 Bouverie Place Germany. 


London W2 1RB. 
Tel. (071) 724-9053 
Fax (071) 706-2379 


ZX Spectrum Emulator, 
Open World: 
Ergon Development 
WinBack 2.01: Davide Santachiara 
Dilwyn Jones Computing Via Emilio De Marchi 2 
41 Bro Emrys 142100 Reggio Emilia 
Tal-y-Bont Italy 
Bangor 
Gwynedd LL57 3YT. 
Tel. 0248 354023 


MS CEN 


New version of Conqueror, Perfection 


Digital Precision have released a 
completely new version of PC 
Congueror - the Gold Special 
Edition - specially designed for 
use with the Miracle Gold Card 
and other QL hardware giving 
more than |.] megabytes of ram, 
With all the features of the stand- 
ard PC Conqueror, the Gold Spe- 
cial Edition also has: 

Full support for expanded 
memory to the LIM 4.0 standard 
for PC software without need for 
separate drivers. On the Gold Card. 

| for instance, users will get 736K 
of base memory, plus expanded 
memory variable between OK and 
944K, Expanded memory im- 
proves the performace of most PC 
software and is essential for some: 
it can also be used for ramdrives, 

Full support for HD disks for 
HD drive users, as well as single- 
and double-density disks, giving 
2880 sectors per disk. 

With ED drives, you can now 
create any number of pscudo-hard 


disks (with over 3.2 MB per disk) 
and boot automatically from them. 
Disk access in this way is typi- 
cally five times faster than for DD 
drives. 

Automatic sensing and switch- 
ing between disk formats at DOS 
level, with manual override. 

-Up to just over 50% faster op- 
eration than all previous Conquer- 
ors on most Gold Cards. 

-Screen colours 
configurable. 

-Many other features, 

-Fully compatible with MS- 
DOS, DR-DOS and PC-DOS yer- 
sions 1.0 to 6.0. 

The Gold Special Edition pack- 
age includes the Standard version 
for users with backup QL sys- 
tems. 


user- 


PC Conqueror Gold Special 
Edition costs £99.95 including Vat 
and carriage. Standard Conqueror 
has been reduced to £59.95, and 
Solution PC Emulator to £29.95. 


New bulletin board 
homes in on QL 


John Nicholson in Ramsgate is 
the sysop of a - fairly - new bulle- 
tin board concerned with matters 
QL. The board, on 043 51722. is a 
24-hour, seven-day board operat- 
ing at 300/2400 baud, 8 bits (1 
slop, no parity). There is a Quanta 
section devoted mainly to the loc! 
subgroup, in which John is active, 
as well as sales, jobs (‘not a lot in 
there at the moment’) and Comtalk 
for the airing of computer views. 
The bbs - Paramount - also says 
that there is also nearly 40 mB of 
program files to download. 

Once you have logged on and 
filled out the bbs questionnaire, 
you receive 30 minutes of long-on 
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time. If you want more time, there 
is an annual fee of £15 (private) or 
£25 (business), with a 10% dis- 
count to Quanta members. Ben- 
efits incurred include unlimited 
downloads, route planning, dis- 
counts on hard and software (no 
details here), ability to upload 
password-protected files for se- 
cure storage, and the ability to 
store private personal data at a 
remote site; and others. With 
apologies to Tandata users, the 
bbs modem does not handle 1200/ 
#5. 

Apart from the given number, 
John Nicholson can be contacted 
by on 043 593995, 


Existing owners can upgrade for 
the difference in the current ad- 
vertised price plus £10. 

A year on from Perfection’ s first 
full release, we now have Perfee- 
tion Special Edition, Some exam- 
ples of the SE’s additional fea- 
tures are: 

- Storing and recalling up to six 
‘environment’ (complete para- 
graph style) settings atakeystroke, 

- Pour more strips to support 
extra printer functions. 

- 64 extra printer translates of 
up to 63 lines for special printing 
needs, plus a new print terminate 
option. 

- Printer driver now supports all 
Perfection string editing com- 
mands. 

- Total compatibility with all 
document files (own, previous 
Perfection, Quill_doc, Editor and 
SE, Ascii, Psion Four and text87 
export, non-Ascii, machine code, 
compressed data, etc.) and printer 
data files (own, previous Perfec- 


Technical 
Review 
returns 


Now out, after a long wait, is OL 
Technical Review issue 7 from Gwm 
Gwen Hall. Richard Alexander has 
been suffering various upheavals in 
his personal life, but now feels confi- 
dent that his life and CGH are heading 
for a more settled period. Conse- 
quently, although Richard say's that 
the contents of QLTR7 have been “on 
file for some time”, it is all solid stuff 
as usual, inchiding a (recent) assess- 
ment of Perfection by Rich Mellor, 
and two inital reports on the Miracle 
Gold Card (for a full review sce page 
XX in this issue of QL World). 
Theediting of QLTR isbeingtaken 
over by Bruce Nicholls at 57 
Shaftesbury Road, Romford, Fs- 


tion, Quill printer_dat) - no re- 
entering. 

~ Reformatting speed typically 
four times faster than standard 
Perfection. Ditto global search 
and replace. Other speed en- 
hancements, too, 

- Enhanced Configurator, Dic- 
tionary Utility and Stripsort. 

- Greatly upgraded piping of 
output to Professional Publisher. 

- Merging works for both Per- 
fection and non-Perfection files. 


Perfection SE costs £99.95, or 
£139.95 with Spellchecker and 
three dictionaries, Existing users 
can upgrade on the same terms as 
for Conqueror (above) - return 
disks but not the manuals. 


DP are also doing further deals 
and upgrades, including a Light- 
ning Special Edition Gold Card 
version, More details next month; 
see also DP’s advertising in this 
issue, 


sex RMI 2QJ.CGH will continue to 
publish. 

Other features in QLTR7 include 
reviewsof Basic Reporter, OMenu, QL 
Genealogist (by John Shaw again!) 
and DataDesign 2.0, with networking 
hints from Tony Firshman, 

CGH Services have also rational- 
ised their Public Domain Library 
service. CGH have dropped 
microdrive service altogether - for 
reasons of simple time economics - 
and standardised on disk ata standard 
charge of £2 per disk (to include 
software, the disk itself and post and 
packing). Dave Walker's C68 Com- 
piler is one of the programs available 
ona PD basis from CGH. 

QL Technical Review costs £1.50 
from CGH Services, Cwm Gwen 
Hall, Pencader, Dyfed, Cymru 
SA399HA. Tel.055934574,. UK post 
and packing inclusive. Add 10% of 
total for Europe and 20% for rest of 
world. For further information/price 
lists please send an SAE to CGH. 
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Quanta 


upon 
Tyne 


The Tyneside Quanta workshop 
will take place on Sunday 2 June 
1992 at the Moat House Hotel, 
Newcastle upon Tyne (why have 
we been hearing complaints 
about ‘no Quanta meetings in the 
North’ recently?). The Quanta 
North East subgroup have nego- 
tiated a conference rate of £20 
bed and breakfast or £29 BB and 
evening meal (half board). The 
hotel is close to read, rail and 
airport travel facilities, 

The local monthly meeting of 
} the local group will take place on 
Saturday 27 June at 2pmat Teresa 
Church, Heaton Road, Newcas- 
tle Upon Tyne. Anyone who 
wants to attend that meeting 
should contact the Group in ad- 
vance. 

More information from Derek 
Stewart at 20 Emily Street, 
Gateshead, tel. 091 477 5472 or 
Dennis Crowe at 21 Midhurst 
Road, Newcastle Upon Tyne, 
tel. 091 2665175. The group can 
also be contacted via its bbs, 19.30 
to 16.00 (itsays here), seven days, 
V21, V22, V22bis, ¥23, VT 100/ 
VTS2. Tel. 091 477 5472 (as for 
Derek Stewart above). 


Text 87 OK 


Text87 Plus4, the new version of 
text87, is now reported to have the 
bugs which dogged its release in 
March of this year eradicated. ‘“Wer- 
sion 4 is now totally bug-free”, says 
developer Fred Toussi, Plus4 is a 
complete rewrite of text87, which 
| generated some Concem among Us- 
ers by running several months late 
over the Christmas period. How- 
ever, orders were fulfilled in March. 
Some bugs were reported, and have 
now been ironed oul. Software87 is 
at 33 Savernake Road, London 
NW3 2JV. See their advertisement 
on page XX of this issuc for details. 


Miracle Systems have reduced cepting part-exchange of older 
the price of their Gold Card products for the Gold Card; this 
memory expansion for the QL offer cnds with the price reduc- 
(see the review on page XX of tion. 

this issue). The Gold Card now Miracle now has news of deliv- 
costs £225 inclusive of VAT, ery times for the awaiting 3.2 MB 
post and packing, with a disk drives, delayed since before 
twoOcyar warrantry and 14-day Christmas by unforseen price nego- 
money-back guarantee in line tations. “We don’t take any money 
with Miracle’s normal custom, until the goods are sent out,” said 
The export price is now £200. Miracle’s Stewart Honeyball, “But 
Miracle will no longer be ac- we felt we had a duty to supply 


DIY TOOLKIT 
UPDATE 


New programs have been added to cur- 
rent DIY Toolkit yolumes as part of a 
continuous policy of updating. The 
QLipboard and screen-reading routines 
in Volume S are joined by 
FOUNTFIX_TASK, which locates 
copies of the CST Thor character set 
used in programs like The Editor, 
Turboquill+ and Perfection, replacing 
them with the QL equivalent. 

Volume C now includes routines to 
centre text horizontally and vertically in 
any window, CSIZEanddisplay MODE. 
These extensions were suggested by Dr 
Dario Leslie. Volume E gains a special 
yersion of EDLINES, contributed by 
MinervaauthorLaurence Reeves, which 
ensures compatibility with a change in 
some Minerva roms. 

DIY Toolkit volumes cost £3 each 
plus £4 per order for media and process- 
ing. Fixed bundles are available at £20 
per six disks plus £4 p&p. Mdv users 
send one formatted microcassette for 
each yolume, Order from DIY 
Toolkit,Cwm Gwen Hall, Pencader, 
Dyfed, Cymru SA39 9HA. Tel. 0559 
34574. 


Software publishers Digital Preci- 
sion and Software 87 have come 
back to us with comments on Mike 
Edwards’ comparative user report 
on wordprocessors. Digital Preci- 
sion comment that Mike’s figures - 
particularly for block moves - forall 
three programs are affected by the 
different generations of program 
being used and his variable experi- 
ence with them. All three programs 
have different modes which can be 
employed. For instance, using The 
Editor in non-document mode al- 
lows it to move faster than in docu- 
ment mode, “which was bolted on 
afterwards for people who are used 
to wordprocessors”; the block move 
used by Mike in The Editor was 
apparently ‘automated’ (using a 
macro, which is possible for ad- 
vanced users in The Editor and Per- 
fection), but the block move used 
for Perfection was not; Perfection 
has a slow option for some proc- 
esses to allow easy interrupt by the 
user, especially the novice user. If 
the tests were rationalised to com- 
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Miracle Systems cuts 
Gold Card price 


Figures are better, say 
word processor 
publishers 


drives, as some people had bought 
Gold Cards on the assumption that 
they would be able to buy disk drives 
later.” The pricing problem is now 
apparently sorted out, and the drives 
should be out by the time you read 
this, 

For more information, consult 
Miracle’s advertisement in this issue, 
or contact Miracle Systems at 25 
Broughton Way, York, YOI 3BG, 
UK. Tel. 0904 423986. 


pare like with like, text87 (3.00) 
would improve in ratio terms by 
about 3.5 times and Perfection by 
about 2.5 x 2.5 x 3.5, ie over 20 
times. If text87 4.00 [which was | 
shipped in March - see this page] 
were used I°d estimate a further 1.5 
times, and if Perfection 3.00 was 
used, a further 1.5 improvement on 
Perfection 2.00. If Perfection SE 
was used, that would become about 
2.2 times faster. “Perfection can 
move 80% of 4096 of the Bible in 
about 3 seconds,” Freddy Waccha 
reminds me. But where to? And just 
when God thought we were all safely 
occupied with worrying about the 
Big Bang, too. 

Fred Toussi of Software87 adds: 
“The reviewer complains that text87 
does not allow the user to save his or 
her selections of commonly-used 
typefaces, making it difficult to se- 
lect different typefaces. This has 
been available in text87 3.00 since 
early 1990 and is listed on page 15 
of the V3.00 manual.” Text87 4.00 
is now on the market. 
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PEN QHANWEL 


Open Channel is where you have the opportunity 
to voice your opinions in Sinclair QL World, 
Whether you want to ask for help with a technical 
problem, provide somebody with the answer, or 


just sound off about something which bothers you, 


write to: 


Open Channel, Sinclair OL World, The Coach House, 
Medcroft Road, Tackley, Oxon OX5 3AH. 


FIELD NAMES 


I'm aregular user of Archive, and 
T have written several routines in 
an attempl to keep up with my 
business clicnts and accounts. 
Having twice in the past lost large 
amounts of data, once due to a 
power failure and once through a 
dodgy disk drive (yes, I do keep 
backup copies, but on both occa- 
sions the backups were corrupted 
as well!}, [have come to know the 
merits of both Chas Dillon’s Re- 
cover utility and Digital Preci- 
sion’s Super Media Manager. 
However, to get any sense from 
Recover, it is important to know 
both the database field names, and 


over that now. 


as we Can. 


TATE 


Editor’s notebook 


Ah! Back again. Have you ever felt just like a 
lost file floating about in a memory limbo? 
That's how I’ve been feeling for the past 
month while we (too many of us to list) tried to 
decide the who, what, why, where and when 
of the next issue of QL World. We apologise 
for all the uncertainty (which, fortunately, did 
not catch up with our readers until the May 
issue became overdue) but we are getting 


There seem to have been some - ahem - 
rumours circulating. No, QL World has not 
gone out of business. That one seems to 
have originated from an under-informed 
telephone-answering person at the old 
Maxwell office at Panini House. Enquiries 
should have been diverted to Arcwind or to 
HHL at Greater London House. Yes, your 
subscriptions are still up and running. See 
Noticeboard (page 41) for more information. 

Because of the delayed schedule, | apolo- 
gise to authors and dealers where information 
has been delayed. We're catching up as fast 


It's nice to be Restored again! ' 


the order in which they were cre- 
ated. 

The routine attached to this 
letter is a stand-alone procedure 
and uses the numfld() and fieldn() 
functions to list automatically all 
the field names for a given file. 
Once loaded, the direct command 
‘fields’ sets the whole thing in 
motion, and it’s then an easy matte 
to get hard copy of any specified 
file, Not only is this a useful pre- 
caution for recovery purposes but 
it also has uses in gencral house- 
keeping. and in designing screen 
layouts, especially where a file 
has more fields than can be listed 
on screen. | now keep listings of 
the fields in all my files for safety. 
This may be uscful to other users. 

Alex Munden 
London N16 


PS Good luck with your new own- 
ers - [hope they don’t list yachting 
as a hobby! 


proc fields 

cls 

input “File name? “temps 
look temps 

Iprint tab 5;"File name: 
“ttemps;”_dbf" 

iprint tab 5;“No"; tab 10;"Field 
Name” 

let x=0 

while x<numfldQ 

Iprint tab 5;x; tab 10;fieldn¢x) 
fet x=x+] 

endwhile 

close 

Iprint 

endproc 


Editor's comment: No. Only 
windsurfing. We've had enough 
of multi-millionaires for the time 
being. 


QL SETS 


Regarding the letter from Dane 
Kurth in Switzerland, the follow- 
ing will, | hope, be of interest. 

There are two character sets in 
the QL. and these are located in 
the rom. The precise location will 
thus be fixed, and will depend on 
the rom version. These character 
sets are common to all and any 
windows, and are the same re- 
gardless of whether the window is 
a Screen or a Console. 

The addresses of the character 
sets on a QL may be found by first 
finding the start of the channel 
table SV_CHBAS. This address 
is contained in the table of System 
Variables starting at 163840 
(SV_IDENT) and, irrespective of 
the rom type, is always given al 
address 163960 and provides a 
long word pointer to the start ad- 
dress of the channel table. Please 
note that all addresses and 
displacements are given in deci- 
mal. The last entry in the channel 
table is always given by 
SV_CHTOP at located 163964. 
This is also located in the table of 
system variables, 


The channel table consists of 
either long word pointers to an 
area in the common heap, which 
contains the channel definition 
blocks, or $FFOOQOQO00 if the 
channel is closed. 

These channel definition 
blocks, provided they define a 
screen or a window, inturncontain 
pointers to the addresses of the 
two character sets. Thus the start 
of the channel table irrespective of 
the rom type will be given by 
SuperBasic lines such as lines 20 
and 40 of the accompanying pro- 
gram, 

This start address is always 
contained in ram, it points to the 
first of the channel definition 
blocks and will vary withdifferent 
roms. It will also vary with the 
addition of any add-ons, Iines 50 
and 60 will provide the start ad- 
dress of the first channel definition 
block. 

Each channel definition block 
gives at its start address the length 
of the block. For a console or 
screen, this will normally be 256 
bytes. Line 70 will provide the 
block length: 

Each block has at +10 the 
channel tag, and from this word it 
can be determined if the channel is 
the COMMAND or SYSTEM 
window ([hash|1 SuperBasic) or 
the LIST window ([hash]2 
SuperBasic). the COMMAND or 
SYSTEM window 1s always the 
first defined block and should 
never be closed. Lines $0 and 90 
will check whether the definition 
block is required. The return 
should be 0, corresponding to the 
COMMAND window. 

Once it has been determined 
that the channel definition block 
is the one that is required, the 
address of the two character sets 
can be found by adding 42 and 46 
to the start of the correct channel 
definition block as in lines 100, 
110, 120 and 130. 

The returns from lines 120 
and 130 should give addresses in 
the system rom for the two char- 
acter sets, and should be the same 
for all consoles or screens in that 
particular type of rom. 
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The returned addresses may 
be checked for validity by 
PEEKing the first two bytes of 
each character set. The first set, 
at the lowest address, should re- 
turn 31] - the first valid character 
- and 96 - the number of valid 
characters in the first set, minus 
|. The second set, at the highest 
of the two addresses, should re- 
turn 127 -the first valid character 
of this set - and 64 - the number of 
valid characters mn the second 
set, minus |. Lines 140, 150, 160, 
170 will provide this, 

The addition of lines 10, 
20 and 30 to the program 
provides a small SuperBasic 
program to provide the char- 
acter set addresses for any 
version of the QL. 

P Hutley 
Dewsbury 
West Yorks 


10 CLS 

20 ChTab_add = PEEK_L(163960) 

30 PRINT "QL Version = “!VERS 

40 PRINT “Ch Tab address = 
“Chlab_add 

50 PDB_add = 
PEEK_L(ChTab_add) 

40 PRINT “Phys Def Blk add = 
“;PDB_add 

70 PRINT “P/D Block Length = 
";PEEK_L(PDB_ada) 

80 Chk_add = PDB_add + 16 

90 PRINT "Channel Tag = 
“PEEK_W(Chk_add) 

100 ChSet2_add = PDB_add + 42 

110 ChSet2_add = PDB_add + 46 

120 PRINT “Char Set ladd = 
“:-PEEK_L(ChSet]_add) 

130 PRINT “Char Set 2 add = 
*:PEEK_L(ChSet2_add) 

140 PRINT “Check byte CS1/1 = 
":PEEK(PEEK_L 

(ChSet1_add)) 

150 PRINT “Check byte C51/2 = 
* PEEK(PEEK_L 
(Chsetl_add)+1) 

160 PRINT “Check byte CS2/1 = 
“;PEEK(PEEK_L 
(ChSet2_add)) 

170 PRINT “Check byte CS2/2 = 
“PEEK(PEEK_L 


FLOATING 


Reading Mr. Clase’s letter (Feb- 
ruary 1992) took me back to the 
days when I was yet a person, and 
had not been reduced to a mere 
row of digits in a computer in 
Newcastle. Time was when the 
programs | wrote were used by 
others beside myself, and their 
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inputs were required to be pro- 
tected against error. 

lenclose a listing of my recol- 
lection of the routine that I wrote 
then for floating point entry, 
adapted to QL Basic. I have cho- 
sen to return the input string rather 
than the coerced number. There is 
sometimes profit in keeping a 
record of one’s own representa- 
tion of numbers considering how 
Qdos mangles their format. 

I have added a facility for the 
use of the comma as alternative to 
the period to mark the decimal 
point. If this is not needed, then 
the comma may be removed from 
the parser string, and Line 1090 
modified accordingly. 

Leading and trailing blanks 
are catered for. Embedded blanks 
are prohibited — they do not nec- 
essarily cause crashes, but will 
always result in an incorrect 
number being stored in the ma- 
chine —unless they occur immedi- 
ately after the E. [| have allowed 
for one blank there. Should this 
not be needed, then line 1070 and 
1110 may be simplified. 

Overflow protection is pro- 
vided, if a little crudely. Qdos, at 
any rate as implemented on 
Minerva, will correctly cope with 
a mantissa of any length that fits 
within the input buffer, Line 1130, 
statement 3, is intended to guard 
against problems with this. 

The listing has two sections: a 
test loop and the function proper. 
It should work ok. [ have printed it 
straight from the file that has just 
been LRUNned. 

I cannot end without a word to 
say how relicved T am that you 
survive. Could not do without you, 
neither | could, my lifeline. 

P H Tanner 
Glasgow 


CHEWED 


Four years ago I purchased a dual 
disk drive. Six months ago the cat 
chewed through the power supply 
lead and the second drive was 
damaged, Only one of the drives 
now works, on a bench power 
supply at the repairers. Unfortu- 
nately [ have been unable to get 
hold of a replacement power sup- 
ply. I have been informed by 
someone at Miracle Systems that 
the drive needs a power supply tht 
gives +12V and +5¥V. The old 
power supply was on a plug witha 
lead to the disk drive. The drives 
were 3.5 in one-third height NEC 
drives (1036). Can anyone tell me 


100 =prompts="Enter a Number : *:REPeat testnum 

110 num=nummerS(prompts):PRINT num:IF num=0;EXIT 
testnum 

120 END REPeat testnum 

1000 DEFine FuNction nummers(p$) 

1010 LOCAL a,b,d,e.k.n.p.s.n$:REPeat nummer 

1020 PRINT p$:;INPUT n$:a=0:b=0:d=0:e=0:n=- 
1:s=O0:nS&FILLSC°O" LEN(n$)=0) 

1030 FOR k=1 TO LEN(nS$) 

1040 p=n$ck) INSTR * +-.0123456789Ee,":a=a__(-(a=0 AND 
p>I)&&k):SELect ON p 

1050 =0 :n=0 

1060 =1 =k 

1070 =2,3 n=n&&-(k=a OR k=e+1+(b=e+1)) ‘s=k 

1090 =4,17  :n=n&&-(d=0 AND e=0) :d=k 
ns(k="." 

1100 =15,16  in=n&&(a<>k AND b=0 AND e=0) 

1110 =REMAINDER:n=-(b<a OR b=e+ ))&&k 

1120 END SELect:IF n=0:EXIT k 

1130 END FOR k:IF n>e AND e>0:n=n&&-(ABS(n$(e+ | 
TO))<(618-e)):k=e+14+(s>e) 

1140 IF n>e AND nes:RETurn n$:ELSE PRINT TO LEN(p$)+k- 
1;CHRS(190);” Error” 

1160 END REPreat nummer:END DEFine 


where I can get hold of a power 

supply suitable for the drive, and a 

replacement second drive, or a 

way of using the case and the one 

drive that still works? IT know 
nothing about electronics, 

M J Williams 

Telford 

Shropshire 


DISK LOSS 


First, congratulations on the re- 
moval of the dreaded name from 
the front cover. It must have been 
a worrying time for you all. And 
needless to say, for all of us out 
here. 

Inthe December 1991 issuc of 
QOL World there is a letter from Mr 
J Bissonette, regarding loss of files 
from floppy disks, for no apparent 
reason. In the current issue, April 
issuc, Bryan Davies speaks of it, 
without any definite conclusion. 
No mention is made of make or 
size of disk or disk drive. 

I have recently suffered from 
exactly the same trouble, so I can 
fill in exact details. 

About two years ago I bought 
my first disk drive ata radio rally. 
It was a Quest single-sided 5.25 in 
Shugart drive. This was connected 
tomy QL viaaCST disk interface. 

It worked wonderfully. The 
disks were first Parrot, and later 
Select DSDD, but one side was 
unused. In an old copy of Elec- 
tronics and Computing, an article 


described how to punch an extra 
index hole on the ‘other’ side, and 
a write-defeat slot on the edge, 
This 1 did, without any trouble, 
about two years ago, without any 
problems until last December 
when the dreaded Bad Medium 
appeared. 

The disks on which this oc- 
curred were the earliest ones saved. 
and some (not all) would not load, 
A month or so later, I found that 
more and more tiles were be- 
coming bad. The directory showed 
them as present, but later a DIR 
produced Not Found. The make of 
disk, or which side was in used, 
did not make any difference. The 
process seems ta have be acceler- 
ating. | have today been forced to 
reformat and save a Boot program 
saved only two months ago. 

I] must emphasise that the 
problem has nothing whatever to 
do with handling care, magnetic 
fields or storage. | am very fussy 
about these. I have added two 3.5 
in drives about 18 months ago. 
and these have been impeccable, 
Why am [using the 5.25 in ones? 
I shall of course discontinue them 
how. 

My conclusions are (1) that 
the drive is not producing enough 
magnetic saturation, I do not think 
it is due to the disks. I have dis- 
mantled the drive and cleaned the 
head, without any cure. For the 
record, | am a retired electronics 
engineer. 

R Snow 
Bath 
Avon 
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3-D TERRAIN 


3D TERRAIN 


INFORMATION 
Program: 3D Terrain V1.0 
Price: = Check with 
supplier 
Supplier: Sharp’s, Box 326, 
Mechanicsville, 
Virginia 23111, 
USA. 
Tel. (USA) - (804) - 
730 - 9697 
Fax. (USA) - (804) - 
746 - 1978 


3D Terrain 
throws a ‘net’ 
over detailed 
landscape 
shapes which 
can be given 
colour and 
form. It works 
well, says 
Bryan Davies. 


istance te projection screen 


Perspect (yer 


OBJ (Glstance to abject 

YAW (Horizontal rotation 

PITCH (Vertical rotation 

VBG CY starting point / Front) 

VED \¥ ending point / Rear? 
QxBG (x starting point “ Lefts 

MED (KX anding point / Right) 


urely as an accident of 
timing, this is the first 
program’ ve reviewed 
since having a Gold 
Card available. It’s a program 
which does a great‘ deal of 
drawing on the screen. Both 
preliminary calculations and 
drawing on the screen are 
rather slow on the basic OL 
(not just for this program), so 
this proved a good opportu- 
nity to see what improvement 
the GC gives. 
3D Terrain is a drawing pro- 
gram which produces ‘terrain- 
like’ pictures on the screen. If 
you have seen screen shapes 
apparently moulded in wire- 
mesh chicken netting, you will 
know what this means. The 
external surfaces of mountains; 
valleys etc., are displayed as 
though covered by a layer of 
netting, giving an appearance 
similar to contour lines on a 


BLANK GRID 


BIG BANG 
BLACK HOLE 


PARADISE WALLEY 
SPACE FLOWER 


map. This mapping, technique 
is commonly used nowadays, 
for instance in the simulation 
of the effects proposed build- 
ing work will have on an exist- 
ing landscape. Typically, a 
photographic image of the ex- 
isting area is overlaid by mesh 
representing the shape of the 
new development, so that the 
visual impact of individual fea- 
tures of the new buildings can 
be assessed. The program re- 
viewed makes no claims to 
utilitarian purposes, however; 
it is simply a means of display- 
ing interesting shapes, and 
modifying them. 


Clone 


A rather odd clone routine is 
provided. It starts up by asking 
if both the original and destina- 
tion ‘cartridge’ are in flp 2. 


Left: a 
sample 
screen from 
3D Terrain. 
Far right: a 
meshed 
shape, 
ready to 
dump to the 
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printer. 
Printouts 
are not as 
dramatic as 
the effect 
on-screen. 


Given the obvious answer ‘no’, 
it stops. If you answer ‘y’, you 
are then asked if you want the 
cartridge in flp_2 formatted; if 
the answer is ‘n’, you are re- 
turned to the first question. 
Fortunately, the COPY and 
WCOPY command will pro- 
duce a working program copy 
without fuss. 

Instructions are supplied on 
two Quill Doc files — about 
three pages in all. To a large 
extent, you can go ahead using 
only the information given on 
the main screen (see figure 
one); you won't know that ef- 
fect changes in parameters will 
have until you have tried them, 
anyway. The basic on-screen 
instructions are quite clear,and 
sufficient to get going with. The 
instruction files give some idea 
of what went into the writing 
of the program, and make the 
uses of the various parameters 
fairly clear. The emphasis is on 
enjoying using the program; it 
is, perhaps, a program that 
typifies what most types of 
micro computer have been 
‘about’ for the past few years. 


Extensions 


The program is Turbo-com- 
piled and a set of run-time ex- 
tensions are loaded by the boot; 
the LINK LOAD command is 
used to load various program 
modules. The program is 
nominally multitasking but, in 
practice, it is not conveniently 
so (on a JM QL at least). To be 
able to switch in and out of it, 
you have to be onascreen with 
acursor, which the main menu 


screen does not have. If the 
program is started after some- 
thing else has been loaded, the 
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main menu may come up with 
the cursor in the normal 
SuperBasic position, from 
which one cannot switch into 
the program. 

You can use Modes 4 and 8. 
The latter makes the drawing 
of pictures take longer, but it 
does give an added quality to 
them, justifying thesuggestion 
of 3D in the program name. 
Youcan opt to havea black-on- 
white or white-on black draw- 
ing. ‘Cross-hatching’ (lines at 
roughly right-angles to the ba- 
sic drawing lines) can be used, 
and it adds detail to give a 
somewhat less coarse-looking 
picture. ‘Height-colouring’ is 
an option which changes the 
drawing mode from mono to 
Mode 4 or Mode 8 colour; this 
tends to make pictures look 
more interesting, to the extent 
of seeming quite different in 
some cases. The pictures look 
much more realistic, and the 
shading moresubtle,onamono 
screen; the relative coarseness 
of colours gives bright pictures 
but tends to destroy the im- 
pression of real landscape. 


Samples 


There are 19 ‘clip art’ terrain 
pictures, and a blank grid pat- 
tern, supplied with the pro- 
gram. These vary considerably 
in their interest, and also in the 
time taken to display them. 
They are provided as bases 
upon which the user can de- 
velop his/her own pictures, by 
making use of the good selec- 
tion of parameters. More ‘shape 
libraries’ may be made avail- 
able by the program writer in 
future. 

The first illustration shows 
the default setting. It is worth 
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running through the sample 
pictures with these settings, to 
get an idea of what you might 
fancy modifying. Making large 
changes in certain parameters 
can result in apparent death of 
the program, with no lines be- 
ing drawn on the screen over 
long periods; the message is, 
keep the changes small at first. 
The first two parameters on 
the menu set the effective dis- 
tance to an imaginary projec- 
tion screen and the distance in 
front of it that the picture land- 
scape is drawn. Varying these 
two changes your position, as 
the viewer, relative to the land- 
scape. The next two parameters 
allow the entire landscape to 
be rotated horizontally or ver- 
tically; these will also alter the 
position of the picture within 
its window and you have to be 
careful not to force the bulk of 
itoutside the window. Thenext 
four determine which part of a 
landscape is displayed, and the 
two following them set the ef- 
fective fineness of the drawn 
pattern. The latter settings are 
a major influence on the time 
taken; the default setting of 1 
for both X and Y step sizes give 
the characteristic chicken-wire 
appearance and allow reason- 
ably speedy drawing, whereas 
reducing the step sizes to val- 
ues less than 1 decreases the 
effective size of the mesh and 
correspondingly increases the 
drawing time. 
‘Cross-hatching’ does what 
you would expect. Generally, 
having this set to ‘on’ improves 
picture quality, at the expense 
of increasing the drawing time 
somewhat. Height-colouring is 
a more complex function. 
When set to off, the Ink colour 
is black and the Paper white, 


and the Mode is 4. This avoids 
the mess printers can produce 
if the background is largely 
black. Setting this parameter to 
‘on’ causes Paper to be black 
and Ink white, and the Made 
can be either 4 or 8. The latter is 
lower resolution but, never- 
theless, the additional colour 
gives an impression of in- 
creased detail. This may not 
appear to be logical, but it fol- 
lows what has been noted with 
photography; the human eye 
can be convinced that a picture 
is ‘sharp’ even when there is a 
lack of detail, provided that a 
sufficient range and degree of 
colour is present. 


Facilities 


‘Auto-symmetry’ is linked to 
the starting /ending point set- 
tings. If it is turned off, the 
balance of lines drawn either 
side of the zero points can be 
altered. ‘Plot upside down’ is 
fairly obvious. ‘Walls around 
surface’ and ‘wall height’ con- 
trol the drawing of a boundary 
around the landscape. 

‘Altitude scaling’ permits the 
number of shapes appearing 
ina picture to be altered, while 
the relationship between indi- 
vidual shapes is maintained. 
The example quoted is of 
mountains being changed to 
molehills, and vice-versa. 

Running the program on two 
QLs, side-by-side, it was possi- 
ble to get a real feel for what the 
Gold Card does. Timings 
showed pictures being drawn 
at 34 times the speed on the 
GC-equipped system, com- 
pared to the system with an 
older (slower) Trump Card. 
Subjectively, what matters is 
that you can see lines being 
drawn quite briskly all the time 
on the faster system, whereas 
lines seem to track a snail's 
progress on the other. Never- 
theless, the pictures get drawn 
on the TC system at a pace 
which is in line with what one 
expects on the QL with graph- 
ics programs. Some of the sup- 
plied pictures are simple 
enough to be completed on the 
screen in a few minutes on the 
TC system, but others take 
hours (depending largely upon 
parameter settings). 

The built-in screen dump 
routine should give reasonable 
pictures on Epson-compatible 
printers. It certainly worked 
satisfactorily on a Kaga-Taxan 


3-D TERRAIN 


DMP and Epson GQ-5000 la- 
ser printer (in FX80-emulation 
mode), The display screen size 
was made compatible with 
Digital Precision’s UltraPrint, 
and it is stated that the 3D Ter- 
rain screens can be edited in 
almost any graphics program, 
as they are saved in standard 
Sbytes format. 


Printing 


Printed output isa fairly faith- 
ful rendering of what is shown 
on-screen. It is not quite as 
interesting as the 8-colour dis- 
play, which possesses a certain 
‘luminance’ in areas where 
there are sharp changes of di- 
rection; this can make both col- 
our and mono screens look 
something out of the ordinary. 
The second illustration is actu- 
ally ascreen dump, rather than 
a print from the program, the 
reason for this being that the 
program prints are limited to 
FX80 resolution which gives a 
very flat, low-contrast image 
on paper when the screen pic- 
ture is coloured, The dump (to 
a laser printer) is in LQ2500 
resolution, When white-on- 
black pictures are printed, this 
printer mode gets rid of un- 
wanted white lines and gives 
greater contrast but it is too 
dark overall. As always, print- 
ing is the frustrating area. 


Instructive 


To some extent, using this 
program is akin to playing a 
game, but it is also instructive. 
It might well be interesting to 
children who are being intro- 
duced to computing and 
mathematics or drawing. The 
ability to rotate objects and col- 
our them, gives a useful de- 
gree of three-dimensionality — 
always welcome on our usu- 
ally very flat screen. You get 
some of the feeling of expen- 
sive 3D drawing programs (but 
you can‘t draw directly your- 
self). The printed pictures are 
rather disappointing, when 
compared to what is seen on- 
screen, but this is a reflection 
on printers and the driver, not 
on the basic program. The pro- 
gram is easy to use and seems 
quite solid. It is slow and ben- 
efits considerably from the use 
of speed-enhancing devices 
suchas the Gold Card, Lightning 
ete. 


INFORMATION 
MasterBasic 1.31 
Ergon 
Development, 
c/o Davide 
Santachiara, via 


Program: 
Publisher: 


Emilio De 

Marchn. 2,42100 

Reggio Emilia, 

Italy. 

£25 (£27 on mdv) 
plus £5 pép. 


asterBasic (MBS) 

is the latest pro- 

gram to be re- 

leased by this 
prolific Italian software house. 
As with the other programs 
from Ergon Development, it 
has been written in 
Turbocharged Basic and uses 
their Basic System Develop- 
ment Menu system. This 
ensuret the program is both 
quick and easy to use (see the 
review of QL Library Manager 
in QL World, August 1991 for 
further details). 

This program is intended to 
provide a massive number of 
tools for the Basic programmer, 
from string search functions to 
a simple trace utility, and in- 
corporates several features for 
which you would normally 
have to load the Basic program 
into an editor. 

The program comes with a 
massive A4 manual (recently 
re-written), which goesinsome 
depth into the variety of fea- 
tures. This new manual is well 
written and a massive im- 
provement over the earlier 
English version, which suffered 
from having been translated 
from the Italian. Unfortunately, 
the manual could do with an 
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index, which | believe may be 
produced once the program's 
development has settled down 
a little. 

MBS loads quickly, and you 
are first presented with a title 
screen which details yourname 
and address, When you press 
the space bar, a small warning, 
window is displayed while 
MBS initiates various tables 
based on the Basic program 
already in memory. It then sits 
in memory until you need it. 

The utilities provided by MBS 
are accessed by pressing the 
function keys (F1 to F5) either 
on their own or in combination 
with Shift or Ctrl. Although 
there is no provision to rede- 
fine these keys, it is relatively 
easy to put MBS ‘to sleep’. This 
is achieved by calling the main 
Fl menu and ‘selecting the Quit 
MasterBasic option (either us- 
ing the cursor keys plus space, 
or by pressing the letter F This 
then calls up a small window 
in which appears the word 
Sleep. Altering the first letter 
to QO will remove MBS alto- 
gether, otherwise it is put into 
its sleep mode. In sleep mode, 
MBS will only recognise the 
key combination Ctrl Alt FI 
which re-awakens it, leaving 
al] the other function keys free 
to be used in other programs 
(Quill for example). 


Tables 


Ctrl Alt Fl also serves an- 
other function, in that if MBS is 
awake when these keys are 
pressed, it forces MBS to re- 
initiate its tables (if this is pos- 
sible). This key combination 
must be used if MBS is to rec- 
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Figure one: Editing FOR loops using MBS 


ognise any major changes to 
the current Basic program 
loaded in memory (such as 
another A laa having been 
loaded!); however, MBS will 
not allow you to use this if any 
of its menus are active or are 
‘suspended’ (menus can be 
suspended by pressing Ctrl Fl 
so that you can access Basic 
and without losing the current 
menu). 


Tailor 


During initialisation, MBS 
will tailor itself to your system. 
This enables MBS to decide 
whether itshould use Toolkit I's 
ED command, or have to resort 
to the slightly less useful Edit 
command; and whether it 
needs tosave itsown windows 
or whether it can rely upon 
Qjump’s Pointer environment. 
MBS also copes well with 
Minerva and allows the user to 
switch integer tokenisation on 
or off, although due to the 
limitations of the current Turbo 
compiler, it cannot work with 
Minerva in dual screen mode. 
With regard to integer 
peiere: MBSdid show up 
one slight problem with pro- 
grams which have been saved 
using Liberation Software's 
Qsave utility — if you Qload a 
program w ith integer 
tokenisation in a different 
mode, then you can end up 
with numbers in a program in 
both integer and floating point 


form even though they look 
the same on screen (this is 
avoided if the Basic LOAD 
command is used, since this 
reformats the tokens to the cur- 
rent status). People who own 
Minerva and Osave will there- 
fore need to be more careful 
with integer tokens than other 
users, Unfortunately for users 
of Minerva (post 1.79), current 
versions of MBS cannot work 
ona MultiBasic program, since 
it only recognises the program 
loaded into the main inter- 
preter (lob 0), 

Once MBS has been initiated, 
the utilities provided by the 
package fall into four main cat- 
egories: programming utilities, 
accessories, debugging tools 
and reference tools. 

The accessories are called up 
by pressing F2. A menu is then 
shown whichallows you tocall 
up a simple calculator (which 
can work in decimal, hexadeci- 
mal or binary);asmall notepad 
(the contents of which can be 
saved to a file for later use and 
utilities to enable you to find 
out the Ascii code for a given 
character or the keyrow value 
of keys. 

Thedebugging tools areavail- 
able on F4. These allow you to 
view the return stack (which 
contains information about the 
call to the last Procedure or 
Function); have details of the 
current line being executed and 
memory use while a program 
is running; and a profile op- 
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tion. The profile option is most 
useful to people who intend to 
compile their program, since it 
shows which parts of the pro- 
gram are executed most often. 
This feature can be restricted 
to run in certain Procedures / 
Functions, or you can specify a 
line number range over which 
it is to run, If you chose the 
former, then MBS quite help- 
fully presents you witha menu 
which lists all of the names of 
the Procedures and Functions 
used by the current program 
from which you can select the 
names of the Procedures/ 
Functions to be used. Even 
more helpfully, this menu (like 
other Procedures / Functions 
menus) allows you to view a 
listing of a Procedure by using 
the cursor keys to move the 
cursor bar onto the desired 
name and pressing TAB. 


Tools 


The reference tools are the 
most powerful option of this 
whole package (and are cer- 
tainly more powerful than any 
other similar program I have 
seen). Ifyou want to find where 
a Procedure/ Function is actu- 
ally defined there are several 
ways in which you can do this. 
The easiest way is to press Shift 
F] - there is then a short delay 
while MBS checks for the 
names of all Procedures and 
Functions defined in the pro- 
gram, and then these are listed 
alphabetically ina menu. Move 
the cursor bar onto the desired 
name (this can be done by us- 
ing the cursor keys or by typ- 
ing the name letter by letter) 
and MBS will then call up the 
start line of the definition by 
issuing an EDIT command (or 
ED if Toolkit IL is present). If 
the definition line (eg DEFine 
PROCedure Junk) has been 
deleted for some reason, thena 
small warning window is dis- 
played. Shift F2 allows you to 
list certain chosen procedures 
(for example if you wanted to 
check on how it works without 
editing it), but you can also 
‘reference’ Procedures and 
Functions by using the Fl main 
ment and selecting Reference. 
This then goes through a simi- 
lar process to allow you to se- 
lect the Procedure / Function to 
reference, and thena small line 
menu is displayed which lists 
the definition of the Proce- 
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dure/Function followed by a 
list of all the line numbers 
where the program refers to 
that Procedure / Function. 

This reference sub-menu also 
allows you to find references 
to the different types of vari- 
ables used by a Basic program 
(floating point, strings, mte- 
gers, arrays, etc.) as well as 
machine code Procedures and 
Functions. As with referencing 
Procedures and Functions, 
once you have chosen the vari- 
able type, a small menu is 
shownonsereen containing the 
names of all the variables of 
that type used in the current 
program, allowing you to pick 
and choose as you wish. If you 
do not like this method, then 
you canalso just enter thename 
of whatever it is you are look- 
ing for and MBS will find all 
references to that name (be ita 
variable or machine code Pro- 
cedure) in the program. Again 
a line menu is then presented 
with a list of all line numbers 
which contain references to the 
chosen variable. 

The line menu is quite a 
powerful little extra to MBS's 
options in that not only does it 
contain all references to the 
given name/ variable /Proce- 
dure, etc., but if you chose a 
line number using the cursor 
bar, once you have edited that 
line you can either press Fl to 
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However, other utilities allow 
the programmer to find any 
string within a program (a 
string needs to appear in the 
program between quote marks 
or after a REMark statement), 
something which is missed by 
all other utility programs on 
the market. Other options pro- 
vided by the program allow 
you to find any given number 
or keyword (eg GO TO); again 
something else which is sorely 
lacking from other packages. 
This is further enhanced by the 
ability to link several of these 
things together so that MBS 
can be used to find something 
as complex as all references to 
‘IF sound-off THEN GO TO 
1000". 


Token 


A recent addition to MBS has 
been an ability to search for all 
FOR or REPeat loops in a pro- 
gram. Although there is a to- 
ken for FOR/REPeat loops, 
because of the design of the 
SuperBasicinterpreter, looking 
for this token is generally a 
waste of time since the token is 
only ever set after the program 
has been run and the given 
FOR/REPeat loop has been 
executed. Instead, if you press 
Ctrl Shift F3 (FOR loops) or 
Ctrl F3 (REPeat loops), MBS 
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Figure two: Looking for a sequence of commands 


return tothe line menu, or press 
Ctrl up or Ctrl down to go to 
the line number above or be- 
low (respectively) the current 
one in the line menu. This 
makes it very easy to quickly 
edit all occurrences of one vari- 
able for instance. 

MBSis madeeven more pow- 
erful by the ability to restrict 
the search and reference uthi- 
ties to certain Procedures / 
Functions in the program. 


spends a little time examining 
the source program in memory 
to find all of the FOR or REPeat 
loops which are used by it. The 
time spent doing this is quite 
short even for a lengthy pro- 
gram, but it is certainly well 
worth it. MBS then displays 
the names of all of the REPeat / 
FOR loops in a menu and in- 
vites you to select one. Once 
you have chosen a name, a line 
menu is then produced which 


programmer could need to 


SOFTWARE FILE 


lists all of the lines where this 
loop appears. To assist you in 
making sense of the program 
(eg a program which uses lots 
of FOR i=1 to 100), the line 
menu contains symbols next to 
each line number to specify 
whether the loop name was 
preceded by REPeat, END 
REPeat, NEXT or EXIT. This 
option is extremely powerful 
and very useful, itis however a 
relatively new development 
and the way in which it is im- 
plemented could do with a lit- 
tle tidying up. 

There is a separate Buffer 
Menu which can be used by 
the user and is similar in op- 
eration toa line menu. The user 
can however specify which line 
numbers are to be inserted in 
this menu and even place a 
three letter comment against 
each line number to remind 
him/her of why itis there. This 
can be useful for editing sev- 
eral parts of a program which 
are inter-dependant. Other op- 
tions to help the programmer 
are the ability to place a whole 
program line into the MBS 
buffer (the contents of this 
buffer are then typed into #0 
when Ctrl F4 is pressed), and 
thus merge two program lines 
together easily. You can even 
request MBS to place in the 
MBS buffer details of the defi- 
nition line for a Procedure/ 
Function — this is useful as a 
reminder of what parameters 
need to be passed to the given 
Procedure. 


Talk to us 


There are many more power- 
ful utilities provided by MBS, 
although many of them are 
more suited to the more ad- 
vanced Basic programmer. 
However, the package is ex- 
tremely easy to use and well 
thoughtout, and even the more 
casual Basic programmer 
should get a lot of use out of it. 
There is very little more that a 


assist in the development of 
programs and Iam certain that 
if anyone has any more ideas, 
Ergon would be only too eager 
to hear them. 

Finally, when sending for the 
package, please note that 
cheques should be made out to 
D.Santachiara and a further £4 
must be added to the cost if 
sending a Eurocheque in any 
currency other than Lire. 


Of Silver 
and Gold. 


INFORMATION 

Product: Gold Card 
memory expansion card for 
the QL 

Supplier: Miracle Systems 
Ltd, 5 Broughton Way, 
Osbaldwick, York. YO1 3BG, 
UK 

Tel/fax 0904 423986 

Price: New low price! £225 
(export £200). Part-ex- 


changes nolonger accepted. 


For further information 
about the 3.2 megabyte dual 
disk drive, see QL Scene and 
Miracle Systems’ own adver- 
tisement. 


The wait has 
only been due to 
the Gold Card’s 
popularity - 
here at last is 
Mike Lloyd’s 
assessment. 


The Sinclair QL was given gen- 
erous praise for being based on 
the Motorola 68000 central 
processing unit (CPU), even 
though it used the least powerful 
member of the family, the 
M68008 with its narrow eight bit 
data bus. It was believed that 
new QL models could take ad- 
vantage of developments to the 
Motorola range as they became 
available. However, Amstrad’s 
purchase of the Sinclair stable 
and their steadfast refusal to in- 
vest in the QL put paid to those 
hopes. The Motorola 68000 se- 
ries now boasts a 68020, a 68030 
and a68040, none of which have 
seen the surface of a QL’s 
motherboard. 

Now, Miracle Systems have 
developed an ingenious and 
extremely powerful hardware 
extension which amounts to a 
heart-and-lungs transplant for 


the QL. Modestly marketed as 
the Gold Card, as though it as 
merely a development of their 
impressively successful Trump 
Card hardware, the new product 
brings the QL into the 1990's 
with a bang and, incidentally, 
overtakes the vast majority of 
budget price pcs in today's mar- 
ketplace. 

The new heart is a full 16-bit 
Motorola 68000 running at no 
less than 16Hz, compared with 
the QL’s normal operating speed 
of 7.5MHz. The new lungs ex- 
pand the QL’s total memory ca- 
pacity by a maximum of 768K. 
Various ancillary improvements 
include Tony Tebby's Super 
Toolkit ll, a battery-backed clock 
to act as a permanent pace- 
maker and adisk controllerwhich 
supports the brand-new 3.2MB 
extra-high density diskette 
forma. The whole package has 
been miniaturised onto a 10cm 
by 12cm card which slots unob- 
trusively into the expansion port 
on the left-hand-side of the QL, 
leaving just a small gold heatsink 
visible. 

As acomputer surgeon of very 
limited expertise, and even 
less confidence, | approached 
the transplant operation with 
extreme caution and some 
trepidation. But | found that 
the operation considerably 


easier than expected - this 
being non-invasive surgery, 
there was no need even to 
unscrew the QL casing. 

Acting as my own theatre sis- 
ter, | began by artfully unpacking 
the new implant from Miracle’s 
sturdy packaging. The outer box 
(which perhaps should have 
been marked “With Care - Vital 
Computer Organs Inside”) con- 
tained a much smaller inner box 
suspended firmly between two 
substantial pieces of foam. No 
flurry of polystyrene snowflakes 
to contend with here, thank 
goodness. 


Nestling in polystyrene grips 
within the inner carton were a 
gold box marked “QL Gold 
Card", a double disk drive unit, 
a batch of five extra high | 
density floppy disks and a 
comprehensive User Manual. 
Printouts of instructions forthe 
card and for the disk drives 
ere folded neatly alongside 
their subject-matter. 

The Gold Card is crammed 
with chips, although room has 
been found for a hefty three 
volt lithium battery to support 
the real-time clock, and for a 
chunky gold-coloured heat 
sink. 

The operating theatre was | 
prepared and the patient 
wheeled in. The QL already 
had early Expanderam and 
disk controller cards from 
Miracle Systems which were 
delicately extracted from the 
expansion port and set to one 
side. It was then a simple 
matter of pushing the Gold 
Card firmly into contact with 
the expansion port bus. This 
can sometimes be easier said 
than done, and care must be | 
taken to ensure that the deli- 
cate pins are not bent out of 
true, but on this occasion 
everything went extremely 
smoothly. 

Once in place, the Gold Card 
does not protrude at all from 
the QL casing. The parallel 
cable to the disk dries as easy 
to plug in, especially as a 
plastic lug ensures that it is 
impossible to fit it the wrong 
ay. The operation was over 
within seconds. 

Miracle recommend reviv- 
ing the patient with a single, 
bold burst of power applied 
from the mains socket via a 
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distribution board to all areas of 
the computer system. Alterna- 
tively, those of a more nervous 
disposition may prefer to power 
up the peripherals first and turn 
on the QL last. Miracle warn 
against the bad practice of re- 
moving the power cable from 
the back of the QL to turn the 
machine off - always keep the 
power cable attached to the QL 
and turn off at the mains. 

The boot sequence provides 
aninstant display of deja vu. The 
random dots which briefly ap- 
pear turn the memory check 
suggest that only the first 128K 
is checked before the Gold Card 
interrupts matters and copies the 
QL's rom into its on, much faster, 
memory. It matters not the ver- 
sion or source of the rom: 
Minervas are just as acceptable 
to Gold Card as are the original 
Sinclair range of rom. The new 
ram-based operating system 
then begins its on boot sequence 
with its on memory check. 
Thanks to a high-speed algo- 
rithm, Gold Card can check its 
maximum of 1920K of ram in a 
couple of seconds. 

Once booted, Gold Card ex- 
hibits the behaviour of a stand- 
ard QL, but considerably accel- 
erated. Using the 3.2MB extra- 
high Density (ED) disk drives 
supplied by Miracle, Psion’s will 
could be loaded in four seconds. 
Even Digital Precision’s enor- 
mous Professional Publisher 
with all its attendant resident ex- 
tensions, high definition fonts and 
Lightning utilities can be up and 
running in about three-quarters 
of a minute. 

Professional Publisher's nim- 
ble performance is a superb 
advertisement for the advan- 
tages of Gold Card. Pro Pub has 
always been an extremely pow- 
erful program, but the QL has 
seemed to be an inadequate 
vehicle for it. Screen scrolling as 
slow and jerky, some ofthe menu 
selections involved an irritating 
pause and negotiating through 
the mode options could be 
downright frustrating. Gold Card 
has put paid to all of that witha 
vengeance. The screen scrolls 
rapidly and smoothly, the 
sidebars are redrawn almost in- 
stantaneously and moving be- 
tween modes is as fast as could 
be desired. 

Infact, Professional Publisher 
running with a Gold Card in 
support is now, to my mind, su- 
perior to, say, Draw Perfect 
running on a full-blown 386 PC. 
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Its true challenger in the pc mar- 
ket, however, its the renowned 
Aldus Pagemaker, which again 
would need a powerful compu- 
ter to reproduce the responsive- 
ness provided by the QL. 


GOLD CARD 


gin. Somewhatbizarrely, Checkit software which dislikes high 
reported that the CPU as running speed and high memory ca- 
at 1102.31MHz but with a more pacity. 


reliable benchmark index of 101 


The MAKE_DIR keyword is 


Dhrystones. A standard IBM XT used to create a subdirectory 
runs at 300 Dhrystones, whilst on a floppy disk or microdrive. 


From 3.2Mb disk 
—§ 46 From 720K disk 


OL 


HI] 
Hy 


Figure 1: A comparison between a standard QL (fitted with Expanderam) and a Gold 
Card QL (fitted with 3.2Mb disk drive). The test programs were representative 


SuperBasic routines. 


A further delight is the ability to 
load more high-definition fonts 
into the Gold Card's hue memory 
and still have plenty of room for 
some very large page formats 
which can be printed on A3 
sheets and shrunk down to A4 
size or below for printing. This 
technique creates high quality 
output quite acceptable for pub- 
lishing. 

Intrigued by Gold Card’s abil- 
ity to supercharge lethargic soft- 
ware, it seemed a good idea to 
road test perhaps DP’s most 
complex product, PC Con- 
queror. As one of Conqueror’s 
first reviewers, | had been im- 
mediately impressed by the 
technical aspects of this PC 
emulator, but less sanguine 
about its practicality. There are 
credible reports that when Con- 
queror is running on an Atari QL 
emulator it is faster than a native 
Atari PC emulator. Sadly, this is 
difficult to believe when Con- 
queror runs so ponderously ona 
standard QL. 

With Gold Card added to a QL 
system, the emulator is running 
within seconds, with DOS taking 
slightly longer to boot up. To 
provide some hard statistics | 
ran the Checkit program dis- 
owned to test and benchmark 
PC hardware. The program was 
successfully fooled into thinking 
that it was running on an 8088 
PC, with a BIOS of unknown ori- 


the more advanced IBM PS/2 
Model 30 canters along at 800 
Dhrystones. The screen refresh 
rate, however, showed a larger 
performance gap. The QL 
notched up a niggardly 202 
characters per second whilst a 
nearby Elonex 386 managed 
16,128 characters per second. 

When MS-DOS programs 
were run under Conqueror with 
Gold Card in support they ap- 
peared to be quite usable. 
Games such as Blockit ere per- 
haps too slow to provide much of 
a challenge, but practical soft- 
ware such as the Galaxy Lite 
word processor ran at a per- 
fectly acceptable speed. QL 
owners who have to work in the 
MS-DOS format to stay in line 
with their office computers can 
confidently bring tasks home to 
finish on the QL. 

Gold Card comes with a com- 
plete version of Super Toolkit II 
embedded into an eprom chip. 
Most serious QL owners will al- 
ready own this essential set of 
SuperBasic and qdos exten- 
sions, but having iton Gold Card 
means that the eprom portat the 
back of the QL is free for other 
software. All of the extensions 
developed for Miracle’s hard disk 
are also included. A clutch of 
extra keywords specific to Gold 
Card compete the picture, im- 
proving the QL’s ability to han- 
dle directories and coping with 


It exists as both a command 
and a function, the latter for 
those programmers who need 
to trap for any file-related er- 
rors, MAKE_DIR- uses 
filename prefixes to roup to- 
gether files so that they ma be 
treated as though they ere the 
only files on a drive. 
Subdirectories created in this 
ay can be associated with a 
logical device driver called 
DEV todistinguish it from FLP, 
MDV and RAM. 

Having created subdirec- 
tories, up to eight of them can 
be assigned to drives dev1_ 
to dev8_ simultaneously us- 
ing a form of the DEV_ USE 
command. DEV_USE 3, 
flip_data_ will, for instance, 
allow you to list all files hose 
name begins with flpl data 
using the command dev3. 

This facility is much more 
useful when Psion software is 
used with subdirectories. Un- 
fortunately, Super Toolkit II 
subdirectories cannot be used 
with the Psion quartet de to 
their developers’ fixation with 
MS-DOS and its ridiculous 
eight-character filename limit. 
By declaring a subdirectory 
with MAKE_ DIR and then as- 
signing it a drive letter the 
Psion programs are confused 
into thinking that the QL no 
has a new type of drive and 
happily saves files to them 
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and loads files from them. With 
the command LU mdv this 
compatibility can be extended 
to software which only recog- 
nises microdrives, forinstance 
allowing the SuperBasic IN- 
STALL BAS program to load 
froma subdirectory and install 
new printer drivers into other 
subdirectories. 

The new device driver also 
mimics the MS-DOS concept 
of a directory path. A pathisa 
sequence of directories which 
are searched until a particular 
filename is discovered. For in- 
stance, EXEC_W quill will fail 
if the Quill executable file is 
not in the current directory 
defined by PROG USE. By 
declaring a_ series of 
subdirectory devices and ap- 
pending an integer to them 
they form a search path, such 
as: 


100 DEV_USE 1, flp2_, 2 
110 DEV_USE 2, flp1_psion_, 3 
120 DEV_USE 3, flo1_propub_, 1 


The EXEC_W quill com- 
mand ill no cause the current 
PROG_ USE directory 0 be 
searched, followed by flpl_ 
propub , flp2_ and flp1_ 
psion_, in that order. As soon 
as a file called “quill” is found it 
will be executed. DEV_ USE 
declarations are not perma- 
nent and so need to be in- 
cluded inabootfile orexecuted 
explicitly prior to them being 
needed. They can be revoked 
using DEV_ USE without pa- 
rameters. 

The opportunities for self- 
confusion are lain with PROG_ 
USE, MAKE DIR DEV_ USE 
and FLP_ USE all competing 
for the honour of providing 
access to files. However, by 
concentrating on DBV_ USE 
and either ignoring the other 
commands or tying them in 
with DEV devices almost all 
the potential problems can be 
avoided. 

Gold Card sets sensible de- 
faults for the disk drive step 
rate, but these way need to be 
altered to accord with the 
equipment you possess. The 
FLP_ STEP command sets 
the step rate in milliseconds, 
the defaults being 3ms for 80- 
track drives and 6ms for older 
40-track drives. Different de- 
vices can have different step 
settings. For most users, how- 
ever, the defaults ill be per- 
fectly adequate. 


24 


Some programs, notably 
Psion Chess, refuse to operate 
with more memory than the 128 
expected from a standard QL. 
Gold Card can fool software into 
thinking the QL has any amount 
of rams less than its actual com- 
plement by issuing the RBS SIZE 
command followed by the 
number of kilobytes required. In- 
terestingly, RES SIZE prevents 
you from using extra-high den- 
sity diskettes, presumably be- 
cause there would be insuffi- 
cient room for the Qdos file loca- 


The Gold Card sent for review 
as accompanied by a brand new 
3.2MB disk drive from Miracle. 
This new floppy disk format is 
presently unavailable for MS- 
DOS computers, although it 
should be operating on anumber 
of Unix systems by no. Because 
QL software tends to be very 
compact, 3.2MB is more than 
enough for even the most 
sprawling suite of programs and 
their attendant data. 

This makes the new disk for- 
mata very acceptable substitute 


number of 3.2MB diskettes in 
your disk library. Finally, the 
floppy diskette drives do notneed 
a noisy and intrusive fan to cool 
their electronics. 

Living with the Gold Card and 
the 3.2MB disk drives was ex- 
tremely easy to get used to: high 
speed software loading, exem- 
plary execution rates and enor- 
mous storage capacity on tap 
from the extra-high density disk 
drives add up to a computer us- 
er's heaven. In fact, it took a 
session with Gold Card removed 


Gold Card QL TATA 


Figure 2: A comparison between a standard QL and a Gold Card QL running DR-DOS 5.0 
under Conqueror. The test come from the Checkit benchmarking utility. 


tion tables. It does allow you to 
play Chess, however. 

Some programs, notably ac- 
tion games, can object to the 
high speed of the Gold Card's C, 
or they might just become 
unplayable because everything 
happens so fast The wonder- 
fully-named SLUG command 
imposes compulsory wait states 
so that you can adjust the 
processing speed to suit the 
software in hand. 

Gold Card’s battery-backed 
permanent clock is a godsend 
for date-relate (programs. The 
effort involved in setting the time 
and date on a normal) QL is 
usually out of all proportion to 
the use made of it, therefore 
most people simply do not 
bother. No, the date can be set 
once and it will remain reason- 
ably accurate for up to five years. 
The date setting on the Gold 
Card can be protected so that 
changes to the SuperBasic date 
have only a temporary effect. 


for a hard disk. If, for example, 
allthe Psion programs ere placed 
in their own subdirectories on a 
single extra density disk there 
would still be more than 2.5MB 
free for data directories. Access 
times are comparable with the 
Miracle hard disk. partly due to 
the compact data format on the 
3.5in diskettes and partly due to 
Gold Card’s improved CPU 
speed. The disk drives accept 
double density and high density 
disks in addition to the 3.2MB 
version, automatically detecting 
which format has been inserted. 

The extra density floppy disks 
score over a hard disk drive in 
four key areas. Firstly backing 
up is extremely easy: WCOPY 
flp1 TO flp2_ will do the trick. 
Secondly, should disaster strike 
on a hard disk the potential loss 
could be devastating: with a 
3.2MB drive only the current disk 
is atrisk. Thirdly, whereas a hard 
disk is limited to, say, 32MB ca- 
pacity, there is no limit to the 


to remind myself of ordinary QL 
performance before | fully ap- 
preciated how indispensable the 
Gold Card really is. The oppor- 
tunity to reorganise my software 
library to take advantage of the 
extra density diskettes as a fur- 
ther blessing. 

The final cherry on the cake as 
the resurrection of the old QL 
versus PC debate among my 
colleagues, this time with the QL 
very much in the driving seat. 
There are three desirables to- 
wards which the current genera- 
tion of mainstream pcs are mov- 
ing: filenames uninhibited by the 
eight-character limitimposed by 
MS-DOS, full multi-tasking, and 
a higher diskette capacity than 
the present 1.44MB. The QLhas 
all of these features available 
no, and at a price considerably 
cheaper than can be obtained in 
the MS-DOS world. PC users 
are going to have to wait many 
months, and perhaps years, to 
catch up. 
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tis a sad fact that the most powerful of 

Archive's printing commands is also 

one of the least used or understood. Its 

power lies in its ability to automatically 
list the records in a file: printing them to 
screen, file or printer; show all or selected 
fields, and automatically space out the 
columns to accommodate the widest entry 
for each field. Its lack of use must stem in 
part from being blessed with the name 
DUMP. 

Having a name which sounds like an 
unformatted hex print-outis a little unfortu- 
nate for a high level, highly formatted print 
command. Impressive though DUMP is, 
there are other reasons for its lack of 
popularity. The main one, | suspect, is the 
lack of control over the output width. Auto- 
matic spacing can be convenient, but if 
you have just one or two very long entries 
the lines will become impossibly wide, with 
acres of unused space. Another draw- 
back is the need to spell out (and spell 
correctly) each field to include, unless you 
want the default of the whole lot. 


Two new commands 


This Archive Answer provides two new 
commands to complement DUMP in the 
task of getting a tidy print-out of your data. 
The design specification is to list all or 
selected fields, specifying the width of 
each column of data by simple on screen 
means; send output to screen, file or printer: 
print, at the top of each page of data, a 
heading of upper-case field names (with- 
out dollar signs), and cope with any file you 
care to throw at it. 

The most obvious problem is what to do 
with text wider than the specified column 
width. One solution is to simply chop off 
any such text. The alternative approach is 
to allow text to spread over several lines, 
within the confines of its own column, as 
shown in figure one. Both solutions are 
offered here. The first, which | have called 
LIST, packs the most data in the least 
space, but at the risk of losing some of it. 
The second | have called TABLE. This 
offers a neater, more comprehensive so- 
lution, but in a rather less compact form. 
The names are slightly arbitrary in that 
LIST produces data in an undoubted tabu- 
lar form, while TABLE's output is just as 
arguably a list. Hopefully the distinction is 
sufficient to allow the appropriate option to 
be used as required. 

Listing one contains the LIST program. 
Almostall of these procedures will be used 
by TABLE as well. Only the additional 
procedures needed for TABLE are in 
listing two. The split in the listings is simply 
to allow you to enter it in two stages. The 
end result will be one program, providing 
the two commands. When entering the 
procedures, you should not type in the 
‘rem’ sections which follow some lines. 
These are remarks, to help you under- 
stand what is being done. If entered they 
consume memory and drive space, and 


rchive 
nswers 


Robin Stevenson puts tables on the list. 


proc CopyStrucjOldfile$ ,Newfiles ,Log$ 
local COUNT ,MAX : 
let TEMPFILES="TEMP_EXP” trem Use RAM drive if available 
use Oldfile$: let MAX=numfld()} 
print : print “Copying structure to "+Newfile$; 
spoolon TEMPFILES export trem WRITE PROCEDURE TO CREATE FILE 
Iprint “proc Temp” 
Iprint “create ‘"tNewfile$+"' logical '"+Log$+ 
let COUNT=0: while COUNT<MAX 
Aprint fieldn(COUNT) trem WRITE EACH FIELD NAME IN TURN 
let COUNT=COUNT+1: endwhile 
Iprint “endcreate” 
spooloff : merge TEMPFILES:Temp ‘ ‘rem MERGE AND RUN THE PROC 
use OldfileS: print 
endproc 


proc Fopen;File$,Log$ trem ERROR TRAPPED VERSION OF OPEN 
open File$ logical Log$ 
endproc 


proc MakeWidth; Fname$, Log$ trem GENERATE _WID DATA FILE 
error Fopen;Fname$+" wid", “widths” trem ATTEMPT TO OPEN IT 
if errnum()=LOO:CopyStruc;Log$,Fname$+" wid", "widths” 

use "widths": append : andif trem IF NOT, CREATE NEW ONE 

use “widths”: display : sprint 
print at 19,27;"Enter the column width for each field.” 
print at 20,27;“For fields not required enter 0." 
print at 21,27;"For Numeric fields, use format width.decimale” 
alter 
endproc 


proc Heading; Bold$ trem GENERATE THE HEADING AND EXTRA LINES 
local COUNT, WID,WIDTH,TS 
let HEADINGS=Bold$: let WLDTH=0 
let COUNT=0: while COUNT<numfld("widths”) 
if fieldt{COUNT): let WID=val(fieldv(COUNT, "widths")) 
else : let WID=fieldv(COUNT,"widths"): endif 
if WIDO tcem ONLY INCLUDE THOSE WITH A WIDTH VALUE 
let WIDTH=WIDTH+WID trem KEEP A RUNNING WIDTH TOTAL 
let T$=fieldn(COUNT)( to len(fieldn(COUNT) )-fieldt (COUNT) ) 
if Len(T$)>WID-1: let TS=T$( to WID-1): endif 
if fieldt(COUNT)=0 trem NUMERIC HRADINGS JUSTIFIED RIGHT 
let T$=rept(” ",WID-len(T$)-1)4+T$: endif 
let HEADINGS=HEADINGS+T$+trept(" ",WID-len(TS)) 
endif 
let COUNT=COUNT+1: endwhile 
let HRADINGS=upper( HEADINGS }+Bold$ 
if ExtraLine$<>"" trem MAKE EXTRALINES THE REQUIRED WIDTH 
let ExtraLine$=rept(ExtraLine$,WIDTH)! endif 
endproc 


proc NewPage;Pollow0n trem PAUSE/PORM-PERD + NEXT HEADING 
if PollowOn<2: if OUTPUT=1 
print “Press any key to continue"; 
Jet ANYS=getkey(): print chr(13);chr(27)+"A"; 
else : lprint chr(12): endif : endif 
if PollowOn: Let LINE=0: lprint tab MARGIN;HEADINGS 
if len(ExtraLine$): Iprint tab MARGIN; ExtraLine$ 
let line= 
endproc 


proc AddNumber ; Number , Wid 
if FirstLine trem PRINT BLANKS FOR OTHER LINES OF TABLE 
local DP: let DP=int((Wid-int(Wid))*10,1) 
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if DP=0! let ANSWERS=ANSWERS+num(Number ,Wid-1)+" " 
else ! let ANSWERS=ANSWERS$+dec(Number,DP,Wid-1)+" ": endif 
else : let ANSWERS=ANSWERS+rept(" ",Wid): endif 
andproc 


proc PrintLine;Log$ trem PRINT SINGLE LINE OF A LIST 
local COUNT,WID,DP,TS: let ANSWERS="" 
let COUNT=0: while COUNT<numfld("widths") 
if fieldt(COUNT): let WID=val(£ieldv(COUNT,"widths")) 
else : let WID=fieldv(COUNT,"widths"): endif 
if WID>O trem ONLY USE THOSE WITH A WIDTH VALUE 
if fieldt(COUNT): let T$=fieldv(COUNT,Log$) 
if len(T$)>WID-1: let TS=T${ to WID-1): endif 
let ANSWERS=ANSWERS#TS+trept(" “ ,WID-len(‘TS)) 
else :AddNumber;fieldv(COUNT, Log$)},WID 
endif 
endif 
let COUNT=COUNT+1: endwhile 
Iprint tab MARGIN;ANSWERS: let LINE=LINE+1 
if LINE=PAGELENGTH;NewPage;1: endif 
endproc 


proc PrintLiat;Fname$,Log$,Opt$,Table trem USED BY LIST & TABLE 
if LogS=""s let Log$="main”: endif 
error Fopen;Pname$,Log$: use Log$ trem ENSURE FILE IS OPEN 
mode 0,8: print chr(20)+chr(4)+chr(1)+chr(76)+chr(24); 
if Table:MakeMerge: Fname$,Log$ trem EITHER MERGE _TAB FILE 
else :MakeWidth;Fname$,Log$: endif item OR GET WID FILE 
if instr(lower(Opt$),"“screen") trem SET UP OUTPUT DEVICE 
Heading;chr(26): spoolon-screen trem FOR SCREEN 
ele : print chr(25)+chr(1); 
let MARGIN=0; let OUTPUT=1: let PAGELENGTH=21 
else : if instr(lower(Opt$),"file"} trem FOR EXPORT FILE 
spoolon FnameS export : Jet OUTPUT=2 
else : spooloff : let OUTPUT=0: endif 
Heading;chr(15): let MARGIN=10: let PAGELENGTH=61: endif 
let LINE=0: use LogS: firat :NewPage;2 
while not eof(Log$) trem LOOP THROUGH EACH DATA RECORD 
let PirstLine=1: if Table: PrintTable 
else :PrintLine;Log$: endif 
next Log$! endwhile 
NewPage;0 
spooloff : close "widths": mode 1 
endprece 


proc List}Pname$,Log$, Opts 
let BatraLine$="" 
PrintList;Fname$ ,Log$ ,Opt$,0 
endproc 


proc AddText ;Text$ ,Wid 
local POS,SEP$: let SEPS=" ,. 
if len(Text$)<wid srem [F IT WILL FIT ON THIS LINE 
let ANSWERS=ANSWERS+Text$+rept(" ",Wid-len(Text$)) 
let REMAINS=""; return : endif 
let POSSWID-1 trem IF IT IS TOO LONG TO FIT ON THIS LINE 
while POS>3 and Wid-POS<9 and not instr(SEPS$,Text$(POS)) 
let POS=POS-1; endwhile trem FIND A SUITABLE BREAK POINT 
if not inetr(SEP$,TextS(POS)): let POS=WID-2 
Jet ANSWERS=ANSWERS+Text$( to Pos)+"- “: else 
let ANSWERS=ANSWERS+Text$( to POS)+rept(" “,Wid-POS) 
endif trem THE UNPRINTED TEXT IS PUT INTO REMAINS 
let REMAINS=Text$(POS+1 to }: let MORE=1 
eandproc 
proc Fmerge;FnameS trem ERROR TRAPPED VERSION OF MERGE 
merge Pname$ 
endproc 


proc MakeMerge;Fname$,Log$ trem GENERATE TAB PROC FILE 
error Fmerge;FnameS+" tab” trem TRY TO MERGE EXISTING FILE 
if not errnum(): error Fopen}Fname$+"_wid", "widths" 
if errnum()<>100; return : endif : endif 
local COUNT,WID,TS ,NUMERIC trem IF NOT, CREATE A NEW ONE 
MakeWidth; Pname$ , LogS 
spoolon Fname$+"_tab" export 
lprint "proc Temp” 
let COUNT=0: while COUNT<numf1d(Log$) 
let TS=fieldn(COUNT, Log$) 
let NUMERIC=fieldt(COUNT,Log$)=0 _ 
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slow the program down, so you are better 
off referring to the magazine for them. 

CopyStruc will be familiar to anyone who 
studied my ‘Totals and Averages’ (QL 
World, 1991), program. It is exactly the 
same as the one in that program, so typing 
time can be saved by extracting that. Load 
TOTALS, and then delete all the other 
procedures. The other LIST procedures 
can then be added to it, before saving as 
LISTS. You could add all the Archive An- 
swers together, to make a large toolkit 
program. While this would have its advan- 
tages, it would make loading very slow. On 
balance | prefer lots of small programs, 
which can be loaded as required. 

To use LIST you enter it as a command 
line instruction, followed by a number of 
text parameters. The first of these is the file 
name. It doesn't matter if the file is open or 
closed at the time. LIST will open it if 
necessary. The second parameter is the 
logical file name. If you have no files open, 
you can send a null string ("") and LIST will 
use the defaultname of "main". Finally you 
must specify the output device. Again there 
is a default, to the printer. Otherwise you 
can specify "screen" or "file". If you choose 
the file option, output will be to a file with 
the same name as the data file, but with an 
"exp" extension, in a form suitable for 
importing into Quill. 

If you wish to list GAZET_DBF, for exam- 
ple, then assuming it is on your default 
data drive you would type: 


LIST; 'GAZET', 'GAZ’, ‘SCREEN' 


You can of course specify a drive as part 
of the file name. List requires a file to hold 
the widths of each column, in addition to 
the data file. This is of identical structure 
and name to the data file, but with a"_wid" 
extension. The first time you run LIST fora 
particular file, it will automatically create 
the width file. Once created, LIST will be 
able to re-use it, making the process rather 
faster on subsequent calls. 

A list of the field names is displayed on 
screen for you to enter the width values. 
Enter the column widths you require in 
both text and numeric fields. There is al- 
ways a space at the end of each column, 
so usable width is one less than the width 
value entered. Numeric fields can be in 
two parts. The integer part denotes the 
total width, as for the text, but you can also 
specify the total number of decimal places 
by putting-this aftef the decimal point. For 
example a value of 7.2 would give a format 
of 'xxx.xx'. Any field with a zero, or no 
number at all, will not be shown in the list. 
If there are more than 24 fields, you will not 
be able to enter column widths for those. 
The total width across the page will be the 
sum of these widths. Except when 
outputting to the screen there will also be 
a margin of 10 spaces. 

Once listing one is entered and saved, 
you should try it out on some test data. As 
with all programs, check it out thoroughly 
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let NUMERIC=£ieldt (COUNT, Log$)=0 
if NUMERIC: let WID=fieldv(COUNT, "widths”) 
else : let WID=val(fieldv(COUNT,"widthe”)): endif 
if WID trem FOR EACH YARIABLE WITH A WIDTH VALUE 


514 Essex Flange - 
42mm diam. 


AST, Groby 


if NUMERIC: lprint "Addnumber;“:T$;",":WID 


else 


trem WRITE THE ENTRY, EITHER FOR NUMBER OR TEXT 


lprint "AddText;";T$;",";WID;": Let “:TS;"=REMAINS” 


endif ; endif 
let COUNT=COUNT+1: endwhile 
spooloff :Pmerge;Fname$+"_tab" 
endproc 


proc PrintTable 
let ANS' 
endwhile 

if BxtraLine$<>"" and LINE>1 


lprint tab MARGIN;ExtraLine$ 
if LINE+2>=PAGELENGTH : NewP age; 1 


trem AND MERGE THE NEW PROC 


trem PRINT MULTI-LINE TABLE ENTRY 
let MORE=1: while MORE: let MORE=0 
=""3TEMP: lprint tab MARGIN; ANSWERS 
let LINE=LINE+1: let FiretLine=0 

if LINE>=PAGELENGTH:NewPage;1: endif 


trem LOOP UNTIL NO MORE 


tram PAGE BREAK 


irem EXTRA LINE, IF REQUIRED 


trem AND CHECK PAGE BREAK 


else : let LINE=LINE+1: endif : endif 


endproc 


proc Table;Fname$ ,Log$,Opt$,Extra$ 
let ExtraLine$=Extra$ 
PrintList;Fname$,Log$ ,Opt$,1 
endproc 


before subjecting real data to it, and al- 
ways have a back up copy as well. Note 
that the data file will be left open after use, 
even if it was LIST that opened it. This 
makes it even quicker for a re-run, per- 
haps to a different output, or with a differ- 
ent format. But you must remember to 
close it after you have finished. 

TABLE is used in a similar way to LIST. 
Allthe parameters described for LIST are 
needed for TABLE, plus one more. Be- 
cause TABLE entries can occupy several 
lines, it may become less clear which lines 
belong to which entry. There is therefore 
an option to insert a line between each 
entry. You need to supply the character to 
be repeated across the line —it could be a 
dot, dash, space, underscore or what- 
ever. If you send a null string ("") the extra 
line will not be inserted. 

Also like LIST, TABLE requires a_WID 
file for each data file, and can use the 
same one that LIST created. However in 
addition, TABLE needs another file, this 
time with a" TAB" suffix. This file is a 
short program file, which is merged, and 
then run once for each line of the table. 
Again, if it is not found, TABLE will auto- 
matically create it. 

This technique of developing secondary 
files for use alongside a data file is ex- 
tremely useful. Each data file will require 
a small family of related files, all with the 
same name, but different suffix. Thus if 
you are using GAZET_DBF, you will find 
on the same drive GAZET_WID, 
GAZET_TAB, and perhaps GAZET_EXP. 
Equally importantly, if any of these sup- 
port files are absent they can be automati- 
cally generated, with just a small time 
penalty. 

The _TAB file is a program which ‘hard- 
wires' the width values into the program. If 
there is a_TAB file present you do not get 
an option to alter the widths, unlike in 
LIST. To alter the widths you must delete 


the _TAB file (e.g. KILL "GAZET_TAB") 
before running TABLE. You can then re- 
vise the widths, which will be used to write 
a new _TAB file. 

Because of the _ TAB file, which is only 
merged at run time, it may be rather un- 
clear how TABLE works. | shall offer a 
brief description here for those interested 
in such things: 

The primary procedure for both TABLE 
and LIST is proc PRINTLIST. This sets 
the scene, via support procedures, by 
ensuring the _WID and _TAB files are 
available, that output is redirected as 
specified, and the heading$ and Extraline$ 
variables suitably filled. This done, the 
program loops through each record call- 
ing either Printline (for the LIST) or 
PrintTable. PRINTLINE fills and prints the 
various ANSWERS, to give one line of 
text, based on the data and width files. 


Second loop 


PRINTTABLE, on the other hand con- 
tains a second loop, controlled by the 
global variable (MORE). Having set MORE 
to 0, it calls the procedure from the _TAB 
file, which is called TEMP. After running 
the program, you can examine proc Temp, 
and will see it contains a string of calls to 
either AddText, or AddNumber — one for 
each field in the table. AddNumber is the 
simpler. If it is the first call for this record, 
it adds the number to ANSWER$, as a 
string of the required width. Subsequent 
calls simply pad out the line with the 
required number of spaces. 

AddText on the other hand has to cope 
with string lengths of 0 to 255 characters. 
lt starts by comparing the Text length with 
the required width. If it will fit, itis added to 
ANSWERS, along with such space pad- 
ding as required, and then returns. If it is 
too long a suitable break point must be 
found. If none of the specified separators 
are identified, the word is hyphenated. In 
either case, the text to be printed is added 
to ANSWERS$, the remainder put in RE- 
MAINS, and MORE is set to one . Back in 


517 Hot Water Tank,  Pluritite, 
120 litre, with Burleys Way. 
integrated 
immersion heater. 

$92 Bath Tap - Hot 


AST, Groby 12.32 


593 Bath Tab - Cold AST, Groby 12.32 


602 Radiator bleed 
screw (8nm 
thread) 


Just Rads, 0,83 
High Street. 


proc Temp, the value in REMAIN$ is 
stored in the appropriate field of the data 
file, and the next field is dealt with in a 
similar fashion. 

Once all the fields are so treated, control 
passes back to PrintTable, which prints 
out the accumulated line. If MORE has 
been set to 1 the loop will continue, the 
temp will again be processed, using the 
now truncated record. If some of the fields 
are still too long, the process will be re- 
peated as required. If any of the fields has 
to be truncated, MORE will again be set, 
and the loop continued. Only when all 
have been completed will the MORE loop 
exit. PrintTable then prints the extra line if 
required, and control passes back to 
PrintList to get the next record. 

Astute readers will have noticed that 
during this process all the text variables in 
the record have been truncated out of 
existence. They are all now empty. Fortu- 
nately this situation is not permanent, or 
all your precious text would disappear at 
this point. The changes can only be fixed 
by an update command, which is not 
present. When thenextrecordis accessed, 
the contents of the previous are restored 
to their former state. 

Various global variables are used in 
addition to ANSWER$ and REMAIN$. 
OUTPUT specifies which device is being 
used. MARGIN is set to 10 for printer and 
file, but 0 forscreen output. PAGELENGTH 
similarly provides for 61 lines on a page, 
21 on the screen. LINE keeps track of the 
current line, to identify the page breaks. 

Itis hoped that LIST and TABLE provide 
convenient and useful ways of displaying 
and printing your data. PC-Archive users 
may be interested to note that they will run 
almost unchanged on that platform. (You 
will need to replace underscores with full 
stops in the File Names.) Both commands 
provide compact, clear representations of 
your data, and TABLE in particular puts it 
in a form which would be very tricky to 
achieve by any other means. 


if you have any topics that you would | 
like Robin Stevenson to address in 


forcoming editions of Archive Answers, 
please write to him care of QL World. 
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o be classified as a 
‘criminal’ for storing ap- 
parently innocent infor- 
mation in your QL’s 
microdrives would seem 
to be nonsensical - and yet this 
could happen and you could be 
subject to a £2,000 fine! 

The laws you would be break- 
ing are, of course, those under 
the Data Protection Act of 1984 
which protect individuals from 
untrue or inaccurate information 
about themselves being re- 
corded in data storage systems. 
This type of error could have 
damaging results such as the 
refusal of credit or bank loans. 

Before these aggrieved indi- 
viduals could take steps to have 
this false information removed 
or corrected they would, of 
course, need to know who was 
holding it, and so the law re- 
quires all data users storing per- 
sonal information to register this 
fact and to abide by a code of 
conduct. An individual has the 
right of access to this informa- 
tion whether or not the data user 
is registered. 

The penalties for refusing to 
abide by these laws can be quite 
steep and, in extreme cases, 
could even result in the police 
obtaining a warrant to break in to 
a property to seize the offending 
magnetic media. 

Obviously, a large amount of 
material produced by comput- 
ers, such as payroll information, 
wordprocessed letters and small 
business accounts poses no 
threat to anybody and the Act 
recognises this by granting ex- 
emptions from the need to regis- 
ter. These exemptions are of a 
very limited nature, however, as 
| discovered, to my cost, when | 
telephoned the Data Registra- 
tion office while researching this 
article. 

As a freelance journalist | put 
it to them that | would have no 
need to register as | only used a 
computer for word-processing 
and simple accounts. 

However, like most journal- 
ists, | have a contacts book in 
which | record the names, ad- 
dresses and phone numbers of 
people who have supplied me 
with information and | was think- 
ing of keying this into my QL for 
rapid reference. Surely that was 
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Are you a QL CRIMINAL? 


The Data Protection Laws 
protect citizens from false 
data, but have they become 
too trivial? asks David 


Drysdale. 


permissible within the exemp- 
tions? 

| was wrong. | would certainly 
have to register, at a fee of £75 
renewable every three years, if | 
computerised that name and 
address list. It was perfectly in 
order to keep it as a written file 
without registering, because the 
Act only covers data but the 
moment it became stored on a 
disk or microdrive cartridge | 
would have to register - even 
though it was only for my per- 
sonal use and would not be dis- 
closed. 

This interpretation raises im- 
portant questions for the thou- 
sands of users of computerised 
notepads and information-stor- 
ing calculators which carry 
names and addresses, particu- 
larly for business use, and who 
have not even considered that 
they may need to register witha 
Government agency. 

Even a program such as a 
computerised personal diary 
would not be immune from the 
Act if it contained information 
about any individual still alive. 
As the registration requirements 
are strictly for electronically 
stored data it would be perfectly 
in order to key ina list of names, 
addresses and personal infor- 
mation items and then instruct 
the computer to sort them into 
alphabetical order, say, before 
printing them on paper. 

Once the printing out had been 
accomplished, though, the in- 
formation would need to be 
cleared out of memory immedi- 
ately, and no permanent stor- 
age could be used. Even storing 
the information with the sole 
purpose of reprinting the list ata 
later date would be unlawful un- 
less registration had taken place. 

To his credit, the Data Protec- 
tion Registrar has sought the 
help of the Plain English Cam- 
paign in producing some easily 
understood leaflets to explain 
what the Act is about and he has 
also issued an excellent one- 


page flow chart to enable data 
users to decide whether they 
need to register. 

One of the flow chart boxes 
asks: “Does any of your compu- 
ter-held information contain de- 
tails relating to living individu- 
als?”. If the answer is “yes” it 
goes on to ask “Is this personal 
information of a sensitive na- 
ture?” and to a “no” response it 
would give the rejoinder “This is 
not important. Personal infor- 
mation can be aslittle as aname 
and address”. The document 
also makes it clear that exemp- 
tions only cover the simplest of 
tasks. 

Upon registration data users 
will have to answer five ques- 
tions about each datafile in use. 
These are: What personal data 
is being held? What is the pur- 
pose for which it is used? What 
are the sources from which the 
information may be obtained? 
To whom might the information 
be disclosed? And, finally, de- 
tails of any overseas countries 
to which the data could be trans- 
ferred would have to be given. 

After registration, data users 
would have to adhere rigidly to 
eight Data Protection Principles 
which cover such areas as the 
legality of the information, its 
relevance, accuracy and updat- 
ing and the standards of security 
under which it is kept. Persons 
named in the database would 
also have the right to obtain a 
printout of information held about 
them upon payment of not more 
than £10. 

This right of the individual to 
know what is being held in the 
datafile is a major part of the Act, 
and | had an opportunity to put it 
to the test recently. 

An inspector from the local 
Electricity board had paid me a 
visit and plastered my meter and 
fuse boxes with a mass of vivid 
yellow stickers warning that the 
equipment must not be tampered 
with. At first | thought these 
stickers were being applied to all 


meters but it appeared | was 
the only one on the estate to 
have them. | then became 
quite concerned because be- 
ing selected in this way could 
indicate that | was under sus- 
picion of tampering. | wrote 
immediately demanding to see 
my computer records. 

At first] was asked fora £10 | 
fee to see them, but the board 
relented when they heard the | 
story and sentthem along free. 
They also sent a covering let- 
ter confirming that nothing in- 
criminating was in the records 
and stated that the stickers 
had been applied by an ‘over- 
enthusiastic’ employee who 
had since left. Would the elec- 
tricity authorities, | wondered, 
have responded so rapidly 
without the existence of the 
Data Protection laws? 

Even so, | feel that the valu- 
able work of the Data Protec- 
tion Registry is in danger of 
being undermined by its in- 
sistence that piffling little pri- 
vate datafiles used by the self- 
employed, and files kept in 
electronic Filofax-type pocket 
computers are within its remit, 
The emphasis should surely 
be on the disclosure patterns 
of databases rather than on 
the mere fact of electronic | 
storage. 

People not wishing to regis- 
ter can, of course, simply re- 
sort to paper files again, which 
seems tobe abackwards step. 
In any case, printed docu- 
ments can always be scanned 
by Ocular Character Reading 
equipment and fed back into 
computers as easily as if they 
were on disk. 

It has been said that bad 
laws make bad citizens, and 
although the Data Protection 
laws are not in the ‘bad’ cat- 
egory they are certain to alien- 
ate those who will resent be- 
ing labelled ‘criminal’ for sim- 
ply transferring the contents 
of their trusty old paper diaries 
onto a QL disk or microdrive. 

For information and advice 
on the Data Protection Act 
contact: 

Information Services 
Dept., Data Protection, 
Springfield House, Water 
Lane, Wilmslow, Cheshire 
SK9 5AX. Tel. 0625 535777. 


_DIY 


TOOLKIT 


Simon Goodwin extends the QL with code to search 


arrays hundreds of times faster than SuperBasic, and a 


demonstration of rom text comparison routines. 


* CL WORLD DIY TOOLKIT — ARRAY SEARCH ROUTINES 
* Version @,7, Copyright 1992 Simon N Goodwin. 


1 

itiitialise lea.t define,al 
movea.w #11G.w,a2 
jmp {a2) 

* 


BP.LINEF vector 


* INARRAY# ( array C ,start% J ,value ) scans arrays FAST 


* 

cmpa.1 a3,a5 

beq.s bad_param 
cmpi.b #3,@as,a6.1) 
bne.s bad _ param 
moved #3,05 

and.b lla3,a6.}),d5 
beq. 5s bad param 


Inarray 


Any parameters? 
Initial array parameter’? 
Mask for known SH types 


Pick up datatype 
Exclude substring type 


types AS = Name Table offset of the array to be searched 


movea.l A4fad,ab.1),a2 
movea.il 44 fa6),a4 
adda.1 a4,al 
adda. 1 Olal,ads.1),a4 
WOVE. We 4(al,aé.1},d@ 
moveg #1,d7 
cmpi-b #1,05 
bne.s get_index 
* 
* Treat two-dimensional character 
7 
subq.w #2, c@ 
bne.s bad_param 
move .w &él(at,ab.1),d7 
MOVE. Wl Bflai,aé.1),d5 
bp}.5 next param 
bra.s bad_param 
* 
* Numeric array descriptor3; 1..15 
* 
get index move.w 6él(al,abé.1),d2 
addq.w #1,02 
wad ta d2,d7 
addq.J #4, a1 
subg.w #1,da 
bnew.s get_index 
subi. 1 #i,d? 
cmp. 1 #52767,4d7 
bhi.s bad param 
next_param addq.t #8,a5 
cmpa.l a3.aS 
beq.s bad_param 
swap d? 
moOve.~W d5,d7 


Ai -—> Array descripter 
Fetch BY.VVBAS offset 

Al is descriptor Ab’ offset 
A4 is offset of values 

Get number ef dimensions 
Initial index multiplier 
Check type} 1 means String 


arrays as a special case 


Faster than CMP if volatile 
Weong number of dimensions 
Maximum element number 
Stride of each string, 4+ 
Disallow negative lengths 


dimensions, 1..32768 elements? 


Fetch maximum index value 
Convert to stride 
Accumulate 

Try the next one 

Count one less subscript 


Fount elements from zero 
Limit result ta @-32767 
Alas the array is too big 


Any more sBarameters? 


Save count fer later 
Save type: 2=F, 3=%, 4+=% 


D7.-W = types D7-H = last element, @-327673 Ad = initial offset 


moveq #6,d5 
lea.l B@l(a3),a2 
cmpa. 1 a2,a5 
beq.s pattern 


Assumed start, element zero 
Delimit one Name Table entry 
Is there one parameter left? 
If so, DS is set correctly 


Fetch the optional integer “first element to scan’ an DS.W 


move. 1 a5,d5 

movea.1l aZ,a5 

movea.w $il2.weae 

js fad) 

bne.s bad exit 
move.w @ial,aé.1),da 
bpi.s geed_par am 


Save end of parameters 
Delimit the first parameter 
Read vector to get integers 
Cali CA.GTINT 


Pick up the value 
It needs to be positive 


he newest DIY Toolkit project 
builds on the array routines 
introduced in April. INAR- 
RAY % is a function which can 
search string, integer or float- 
ing- point arrays for any value 
at breathtaking speed. 

Arrays are tables of values referred to by 
a single name. Individual values, or ‘ele- 
ments’ of the array, are distinguished by 
subscripts written in brackets after the 
array name. For instance, DIM TABLE(9) 
reserves space for an array of ten ele- 
ments, TABLE(0) to TABLE(9). 

TABLE is termed a one dimensionel 
array because each element is located by 
a single subscript. QL arrays may have 
any number of dimensions, as long as 
there is enough room in memory for all the 
elements. DIM BOARD%6(7,7) reserves 
one integer element for each of the 64 
squares on a _ chessboard, so 
BOARD*%(0,0) can record the contents of 
the top left square, and BOARD?®(7,7) the 
bottom right. BOARD% is a two dimen- 
sional array. 

Arrays are useful because they allow a 
single Basic routine to process each ele- 


ment in turn, sete only the subscripts. | 


There is no need to re-write the program 
for every value, as would be the case if 
each element had a distinct name. 

The snag is that programs which use 
large arrays can become very slow, as 
several statements must be interpreted in 
the course of processing each element. 
This overhead is repeated for every value, 
so the time taken to scan a large array can 
be hundreds of times more than would be 
the case if it was all processed by one 
powerful toolkit routine. 

INARRAY% was inspired by the func- 
tion of the same name in BetaBasic for the 
Sinclair ZX Spectrum, and its counterpart 
in Andy Wright's latest package, 
MasterBasic for the Sam computer. The 
DIY version is more powerful because it 
uses special-purpose code for each Super 
Basic data-type, scanning numeric arrays 
at around 60,000 elements per second on 
a 640K QL, and faster still on a 68000- 
based system. 

INARRAY% does nothing that is not 
possible in normal interpreted SuperBasic, 
but it is so much faster, even compared 
with compiled Basic, that it allows new 
types of programs to be written and run at 
an acceptable speed. INARRAY% also 
provides a framework for programmers 
who wish to re-write the inner loop of a 
slow program in machine code. 

Tests on a basic 128K QL show that 
INARRAY° is more than 250 times faster 
than interpreted SuperBasic when 
searching numeric, arrays, and about ten 
times faster than optimised Turbo-com- 
piled SuperBasic! 

My QL manages 38,500 integer com- 
parisons per second in slow ram, rising to 
63,000 in uncontended expansion 
memory; that’s 412 times faster than 
Sinclair Basic. The code to scan all types 
of array requires just 348 bytes of memory, 
and may be shared between any number 
of tasks. 

INARRAY°% is so fast that it can search 
a numeric array of 32768 elements in less 
than a second, regardless of the speed of 
your QL. This compares with 231 seconds 
for an equivalent loop in Sinclair 
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peeereeaaGe 9 


* 


bad peram moveg #-15,d09 


bad_exit rts 
* 


good param addq.2 #2, $58 (ad) 


movea.1 a5S,a3 
maovea-l d5,a5 
move.w dg,d5 


lea.l 6(aS),a2 


cmpa.} a2,a5 


bne.s bad_paran 


* 


* Pick up the pattern and look 


* 
pattern mpi .w WS,d7 
bai. s floats 
bne.s strings 
* 


* Search integer array elements for 


. 


ints movea-w #112.w,a2 


jsr (a2) 


bne.s bad exit 
MOVE. Blal,as.1),de 


Swap 
move.w 
ext. 
add.t 
adda.l 
Search ant cmp.w 


bes.s finished 
ATATIYD = 48 @l(a4,aéb.1) ,de 
bey.s stack_int 


addq.w #1,05 
addq.! H#2,a4 


bra.s search int 


Signal a BAD PARAMETER error 
Return the error code in Dd 


Unstack integer from BV.RIP 


Step past this parameter 
Restore end of list 


Update DS to match parameter 


Only one parameter left? 


- *€ in the array 


Check type 

Type 2 (fleat) gives -1 
Type S 
the final parameter 


Vector to get integers 
CA.6TINT 


Use this KI space later 
D7 is element count 

Work out start af fset 
Aavord +/- 32768 quirks 
Scale D4 for integers 
Advance ta first element 


Extract array element 
Return DS if D@ matches 


Advance lO next element 


* Search a table of floating-point array elements 


* 


finals movea-w 114.w,aZ 


yor (az) 


bne.s bad exit 
move. Ww Glat,ab.1),de 
move. 1 2lal.ad.1),dt 
aiidg.1 #4,$598 (ad) 


Shap d7 

ext.1 dS 

mave. 1 dS,d4 
add. 1 d4,d4 
add. 1 d5,d4 
add. t d4,a4 
athe ed d4, a4 


search +p cap.w dS5.d7 


Vector to get flvats 
CA. GTFP 


Fetch exponent, 

Fetch mantissa 

BV.RIP for integer result 
D7 is element count 


Secele D4 by 6 for fluat= 
D4 = DS * 3 
D4 := Do * & 
fuirvance te fie sl el emerct 


(integer) gives zero 


bcs.5 
cmp. 
bne.s 
cmp.) 


beq.s 


finished 

@(a4,aé.1),da Compare exponents 
next _fioat 

2laS,ab.1),d3 Compare mantissar 
stack _int 


ext float addq.w #1,d5 
addq.1 #6,a4 


Step to next value 


bra.s search fp 


* 
* Search string array elements for the last parameter 
* 


Str inus moves. 


1ofr 
bne.s 
lebaorsd 
adi. w 
bale 
add.1 


move.w 
move.w 


mulu 


adda.1 
movea. 


swap 


moved. 


search_eostr cmp.w 
bcs.s 
moveq 
asr 


heq-s 


addq-w 
adda.w 


bra.s 
* 


Slid.w,a2 Vector to get strings 
{a2) * CA. GTSTR 
exit 
#1,caa Allow for Lhe odd byte 
Mlat,ead.1l) da Unstack the text length 
#0 ,de% D@ ts length rounded up 
d@, $558 (ad) leave ote word for result 
d7,d& Dé 16 string stride 
da5,d4 Work out start of feet 
dé,d4 Scale tor elements 
fddvance ta first element 
Set AW for UT.CSTR 
Now D7 is element count 
Pack up UT.CSTR vector 
Are we past the end? 
finished 
#3,0da Sinclair comparison type 
(a4) Call UT.CSTR 
stack int Return DS if they match 
#1,05 
d6,a@ Nexts Note implicit EXT-L 
search str 


* Return location @-32767, or -7 if the value was not found 


* 
Finished moveg 


Stack int move.l 
move.“ 


moveq 
maveq 
rts 


dco.w 
dc.w 
dc.w 
dc.b 
dc.w 
end 
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#-7,d05 NOT FOUND Qdos error code 
$58 (ad). al Retrieve BV.RIF 
d5,¢tal,a6.1) Stack a one word reply 
#35,d4 Indicate integer result 
#8,00 Signal ERR.OK, it worked 


a, a No precedures 

= One long-named function 
Inarray—* 

9,° INARRAY%” 

@ 


DIY TOOLKIT 


SuperBasic, or 136 seconds for Minerva 
1.64 with all the stops pulled out to boost 
integer arithmetic. 

String searches are relatively slow, al- 
though still much faster than an inter- 
preted loop, because INARRAY% uses 
the standard rom routine UT.CSTR to 
compare string values. This allows four 
types of comparison, so it can match 
strings which contain slight differences, 
but which a human might consider 
equivalent. 

Differences of case may be ignored, so 
‘CAPS’ matches ‘Caps’ and ‘capS’. The 
value of imbedded numbers can be taken 
into account, so ‘7’ matches ‘007’ and 
‘7.0’. By default INARRAY% uses the 
most sophisticated ‘type 3’ string com- 
parisons, web ee can select other types 
with a single POKE, discussed later. 

Numeric searches run at much the same 
speed regardless of the values involved, 
but string searches are much more de- 
pendent on the text being compared. At 
best, UT.CSTR can compare about 3300 
strings per second on an unexpanded QL, 
but this falls to 500 per second, or even 
less, if there are many close matches or 
strings of digits in the array. 

INARRAY“% is the equivalent of a loop 
using the == operator to compare values, 
rather than INSTR. String comparison 
stops as soon as a mis-match is de- 
tected, and INARRAY% steps on to check 
the next element. 

INARRAY% returns a single integer 
value, so it can scan a maximum of 
32768 array elements, returning a value 
between 0 and 32767. If the last element 
is reached, and no match is found, 
INARRAY% returns -7, the error code 
which signifies ‘not found’. 

Like MAXIMUM and MINIMUM, intro- 
duced last month, INARRAY% needs 
access to the array descriptors that record 
Basic array dimensions. It follows that 
INARRAY% is not suitable for use in 
Turbo or Supercharged tasks, as those 
compilers do not allow access to array 
descriptors. 

INARRAY“% has been tested success- 
fully with interpreted SuperBasic from 
Sinclair's early AH roms to the late Sigma 
FP (derived from MG roms) and Minerva 
1.64. It also works fine in tasks compiled 
with QLiberator, as these use the same 
variable allocation scheme as Sinclair's 
interpreter. 

INARRAY°% is simple to use. It accepts 
two or three parameters. The first param- 
eter is the name of the array to be 
scanned. This may be a two-dimensional 
array of characters, declared with a line 
like DIM a$(640,80), or any shape of 
numeric array, from one to fifteen di- 
mensions. The second parameter is an 
optional integer, indicating the number of 
the first element to be compared. This 
defaults to zero, so the array is scanned 
from the start; higher values allow ele- 
ments to be skipped, so that every match 
in an array can be found with a succes- 
sion of calls to INARRAY%. 

The last parameter is the value to be 
located, which may be a constant, vari- 
able or expression. It is coerced to match 
the type of the array being searched. The 
following example prints the location of 
every instance of the value P! in array 
NUMS: 


DIY TOOLKIT 


LET p%=0 

REPeat scan 
p%=INARRAY%(NuMs,O%,PI) 
IF p%<0 : EXIT scan 
PRINT “Match at “:p% 

END REPeat scan 


If INARRAY% finds the required value, 
it returns an integer corresponding to the 
number of the matching element in the 
array. This is simple enough in the case of 
a one-dimensional array, but a little more 
complicated if the array has more dimen- 
sions. You need to use DIV and MOD to 
convert the integer result into values for 
each individual subscript. 

SuperBasic stores arrays in memory 
with the last subscript changing most 
quickly. Subscripts start at zero, so DIM 
Z%(50,100) reserves space for 51*101 = 
5151 elements, numbered from O for 
Z%(0,0) via 1, element Z%(0,1), tonumber 
5150, for the final element Z%(50,100). 

To locate an element in a two-dimen- 
sional array, you need to know the ‘stride’ 
between successive values of the first 
subscript - in other words, the number of 
elements in each row of the array. Z% has 

101 elements in each row, as values for 
“the last subscript vary from 0 to 100. 

If POS% is the position of a match in 
Z%, returned by INARRAY%, POS% DIV 
101 gives the first subscript of the matching 
element and POS% MOD 101 gives the 
second subscript. 

The same principle holds for arrays of 
more than two dimensions. It is not diffi- 
cult to work out the sub scripts using 
successive applications of MOD and DIV 
for each extra dimension. You should not 

o wrong as long as you work your way 
rom right to left; remember to count ele- 
ment zero, allowing each slice one more 
element than the corresponding number 
in the DIM statement. 

The most likely error report from 
INARRAY°% is ‘bad parameter’, returned 
if the first parameter is absent or not an 
array. The same message crops up if the 
array has more than 32768 elements, if a 
string array has the wrong number of 
dimensions, or the optional parameter 
has a negative value. 

INARRAY% attempts to coerce the 
value of the last parameter to match the 
type of the array. Reports like ‘overflow’ or 
‘error in expression’ appear if the value is 
not suitable, as in cases like 
INARRAY°%(TABLE,””) or 
INAR 

RAY %(Z%, 1E6). 

As usual, the code for INARRAY% is 
listed in two forms. Listing one is the 
annotated Devpac assembly code. You 
can type this into your own assembler if 
you wish to develop or modify the routine. 

Listing two uses the standard DIY 
Toolkit hex loader to create a short file 
containing the binary code for INARRAY°%. 
To use this, type in and RUN the 
SuperBasic, then specify a name for the 
code file, such as INARRAY_CODE. Once 
the code file has been generated, load it 
with LRESPR from Toolkit 2 or this se- 
quence of standard QL commands: 


x=RESPR(348) 


LBYTES “FLP1_INARRAY_CODE".x 
CALL x 


You may wish to ee the device or 
file name in the second line to suit your 
system. If you do not wish to retype and 
check the listings you can obtain DIY 
routines on disk. Complete assembler 
source, binary code and documentation 
for INARRAY% and the MAXIMUM and 
MINIMUM routines presented last month 
is available by post from DIY Toolkit, Cwm 
Gwen Hall, Pencader, Dyfed SA39 9HA. 
Send £7 for DIY Toolkit Volume Z, one of 
19 volumes of programs, text and exam- 
ples derived from the QL World series. 
Alternatively call Richard Alexander on 
0559 384574 or send a stamped self- 
addressed envelope for details of the vol- 
umes. 

Please note that the programs, docu- 
mentation and listings in DIY Toolkit are 
protected by UK copyright law and may 
not be reproduced in any way without the 


the public domain. The only exception to 
this rule is that QL programmers are 
permitted to supply individual files of DIY 
Toolkit code with application programs 
that need DIY extensions in order to 
work. Please do not abuse this conces- 
sion. 

The structure of SuperBasic array 
descriptors was introduced last month. 
The new code shows how multi-dimen- 
sional arrays can be scanned, and dem- 
onstrates the use of the string comparison 
vector UT.CSTR. 

After the usual short initialisation rou- 
tine, INARRAY% starts by checking and 
processing the array parameter. This has 
the value 3, signifying an array, at the start 
of the Name Table entry addressed by 
(A3,A6), followed by the data type: 1 for 
strings, 2 for floating-point values and 3 
for integers. The special case of sub- 


permission of the author. They are notin *¢ strings, with type 0, is excluded. Next, the 


Listing two 


REMark Sinclair QL World HEX LOADER v 3 
REMark by Marcus Jeffery & Simon N Goodwin 


CLS: RESTORE : 


PRINT "Loading Hex...” 
INPUT “Save to file... 
SBYTES f%,start, byte : 


READ space: 


start=RESPR( space) 
: HEX_LOAD start 
;f% 


STOP 


DEFine FuNction DECIMAL(x} 
RETurn CODE({h8(x})-48-7*(b#(x)>"9") 
END DEFine DECIMAL 


DEFine PROCedure HEX_LOAD(start} 


byte = @: 


REPeat load _hex_digits 
READ hs 


IF hg="*" : 


IF LEN(h$) MOD 2 


PRINT'Odd number of hex digits in: 


checksum = @ 


EXIT load_hex digits 


"ht 


1 TO LEN(h$) STEP 2 


DECIMAL(b) : 


lb = DECIMAL(b+1) 


IF hb<@ OR hb>15 OR 1b<@ OR lb>15 


PRINT"Tllegal hex digit in: 


END IF 


“Shs : 


POKE start+byte, 16*hb+1b 
checksum = checksum + 16*hb + 1b 


byte = byte + 1 


END FOR b 
END REPeat load_hex_digits 
READ check 
IF check <> checksum 

PRINT’ Checksum incorrect, Recheck data. “:5TOP 
END IF 


PRINT'Checksum correct, data entered at: 


END DEFine HEX_LOAD 


REMark Space requirements for the machine 


DATA 348 


“jstart 


code 


REMark Machine code data 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"43FA014634780110" 
“@BOBIEBWOEB 707 ABZ 
"E804286E0@28D3CC 
“TEO1DCO5 00016618 
"3A3 LESO86A1A4603E 
“5889534066F 25387 
" 5O@BBBBCB6?7 204847 
“BBCAG67 28 2AWDZA4A 
“303 1LEB@O6AG47OF 1 
“2A453A0045EBQ908 
“6B28665ER34780112 
"4847380548 C4D864 
"E8@067765245548C 
“66B6 3031E8002231 
“48C52805D884D855 
“BO? 4E8O06 6S6B2B4 
“6GEAI473OL164E92 
“PS8GGOGED 1 AESOSS 
"20404847 39 7500ES 
“67085 245D0C660F6 
“E8007 9037 OOB04E7 5", 
“@8494E4152524159", 


»" 4ED2BBCB67780C33" 
CA33E80167682273" 
DOF 1E8@03031E804" 
554@664A3E3 1606" 
3431E8@65242CEC2" 
BEBCOOGOO7FFF6226" 
SEOS7 AMAA HE BOGS ~ 
347801124E926608" 
4E7 554ARQ058264D" 
BBCA66EADC470003" 
4E9266DC303 1EGOO” 
D9C4BE45657ABO74" 
60F0347801144E92~ 
E8025 BAROO534847" 
bes 4DeC4BE456648" 
E692673E52455C8C" 
6630701 DO? 1EA@8~ 
3C07 36@5C8CED9C4" 
BE45650C70034E94" 
TAF O226R@O5833505" 
“PAADAAAAAAD 2 FERC 
“Z50GGG0OS™ , “¥" , 32833 
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code points A1 atthe array descriptor in the 
Variable Values area and puts the offset of 
the first element into A4. 

lfa String array is being processed, 
INARRAY% checks for two dimensions 
and picks up the stride between elements 
from the end of the descriptor. The type in 
D5 is replaced by the stride, which will 
always be four bytes or more, as every 
string element consists of a two byte length 
and two or more bytes for the text. The 
length must be stored at an even address, 
so DIM rounds up string lengths to the next 
even number, so DIM T$(3) allocates four 
bytes for text, plus two for the length. 

In the case of numeric values the type is 
unchanged and the loop at GET_INDEX 
scans each subscript in turn, working out 
the total number of elements in D7. This 
value is transfered to the high word of D7, 
so the type can fit in the lower word. This 
shuffling is necessary because subsequent 
parameter-fetching may corrupt all data 
registers except D5 and D7, and we need 
D5 to store the number of the first element 
to be scanned. 

If A3 + 8 = AS, only one parameter 
remains, so D5 is zero, indicating that we 
should scan from the start. Otherwise 
CA.GTINT is used to fetch the next param- 
eter and copy its value from the RI stack to 
D5. | take care to adjust BV.RIP, the RI 
Stack pointer at $58(A6), once the value 
has been read; otherwise the stack grows 
by two bytes every time the optional pa- 
rameter was used, slowly gobbling memory 
and causing strange results if other values 
were already waiting on the stack. 


IF AN ADVERT 
IS WRONG, 
WHO PUTS 
IT RIGHT? 


We do. 
The Advertising Standards 


advertisements meet with the strict Code of Advertising 


Practice. 
to answer Lo us. 

To find out more about the ASA, 
please write to Advertising Standards 
Authority, X, Brook House, 
Torrington Place, London WC1IE 7HN. 


Dept. 


ASA 


This space is donated tn the interests of high standards in advertisements. 
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Authority ensures 


So if you question an advertiser, they have 


Perey vrrretererrrryy 


By the time we reach the label PAT- 
TERN there should be just one parameter 
left - the value we hope to find. Now 
INARRAY°% forks into three distinct rou- 
tines, one for each data type. 

The INTS routine fetches an integer with 
CA.GTINT, leaving its space on the Maths 
Stack for the result, then scans an integer 
array. D5.W holds the current element 
number, and D7 is swapped to retrieve the 
total number of elements. D5is incremented 
after each unsuccessful comparison, until 
it reaches D7 or a match is found. 

FLOATS works similarly, using CA.GTFP 
to read a six byte floating point value for 
comparison. ADDQ.L #4,$58(A6) adjusts 
the Maths Stack pointer to leave two bytes 
of space for the integer result. Three ADD.L 
instructions are used to multiply the initial 
element number by six, advancing A4 
through the array to the required element. 

The floating-point comparisons are al- 
most as fast as integer ones, as the 
SEARCH_FP loop starts by comparing the 
exponent words of the element and the 
pattern; only if these match does it go on to 
compare the mantissae in the following 
four bytes. 

The scanner labelled STRINGS fetches 
a parameter with CA.GTSTR, then adjusts 
BV.RIP to leave room on the maths stack 
for the integer result. A1 is left pointing at 
the parameter length, and AO is made to 
point at the first element to bee scanned, to 
suit UT.CSTR. Just before the loop at 
SEARCH_STR the code moves the 
UT.CSTR vector into A4, to save fetching 
it before every comparison. 


IF 


} NYNERUR new us 


ee ete, Cor ou 


Hh bathery for 256 byte: 
ron, CPRSHPROCF clock & interface (170) for 
cot fron battery ran. 
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UT.CSTR is unusual because it does not | 
return an error code in DO; instead it re- 
turns zero if the strings at (AO,A6) and 
(A1,A6) match, -1 if the AO string comes 
first, and +1 otherwise. The loop stops as 
soon as BEQ.S detects a match. 

Allthree routines return viaSTACK_INT, 
with the element number in D5, if a match 
is found. Otherwise they branch to FIN- 
ISHED and return -7, the Qdos code signi- 
fying ‘not found’. 

One advantage of using the rom routines 
to compare strings is that the A of com- 
parison can easily be changed. By default 
INARRAY“% uses type 3 comparisons, tak- 
ing special account of imbedded numbers 
and ignoring the case of letters. The alter- 
natives are Type O comparisons, which 
require an exact match, type 1, which only 
ignores letter case, and type 2, which 
matches equivalent numbers but 
distiguishes between small letters and 
capitals. 

A simple POKE sets the type of string 
comparison performed by INARRAY%. 
This can most easily be set immediately 
after the code has been loaded into 
memory. If X is the address of the start of 
the code, X+301 holds the comparison 
type, so PEEK(X+301) should give 3 ini- 
tially. POKE X+301,0 for strict compari- 
sons, or POKE 1 or 2 for the other possibili- 
ties. 

You can change the comparison type at 
any time, as Ae. as you keep track of the 
address to POKE; this is an obvious appli- 
cation for SET, from QL World April and 
May 1991, or DIY Toolkit disk Volume U. 
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or those who tried out the simple 
outline database in the February 
1992 issue, we will now increase 
the number of fields before adding 
| the missing procedures. Assuming that 
| you entered 30 items, that item$ was a 
book title and num the price, and that you 
entered fileS as ‘library’ then you have one 
file, called library, made up of 30 records, 
each record describing one book and each 
comprising two fields. 

It is too limiting to have only two fields; 
however, while anything can be written on 
a file card, there are some constraints 
when inputting data into variables. There 
are three kinds of variables: 

1) Non-numeric string (nns) variables, 
like item$, always ending in $. These will 
accept any printable keyboard character 

2) Floating point (fp) variables, like num 
or x, which will hold gigantic numbers, but 
anything over 999999 uses an exponential 
| configuration, for example: 55 million = 
5.5E7. This is unhelpful for telephone num- 
| bers, and for these an nns variable of 
suitable length would be used. 

3) Binary variable, such as quan%, which 
will hold +/-32767, but no decimal points. 

A suitable analogy of how datais stored, 
but not how the computer stores it, is to 
start with a pile of small, open boxes. 
Considering num(max) in line 470 of the 
listings, if max was 100, imagine 101 boxes 
in a straight line. All automatically contain 
Oat the start, and the boxes are numbered 
Oto 100. Your data starts be going into box 
1, so | have used box 0 to hold the total 
number of entries (see lines 450, 600, 
730). This is a one-dimensional array, and 
each box uses up 5 bytes. A binary variable 
array would be no different, except that 
each box would use up only 2 bytes. 

For item$(100,30), consider a rectangle 
of boxes, 31 wide and 101 deep: that is, 
two-dimensional. Not only is there a zero 
column downwards but also a zero row at 
the top. The top left-hand corner would be 


Just for 
Starters 


In part 2 of his SuperBase tutorial, Don Smith continues 
adding procedures. First, the number of fields must be 
entered to keep the database flexible. 


box 0,0, next to it 0,1, and so on up to 0,30. 
Sorting often uses this zero row. The next 
row down commences with box 1,0, then 
1,1, and so on up to 1,30, but box 1,0 and 
all the other zero boxes below must not be 


print\to 10,'I'to 15;'Sort'to 50;'J'to 55;’Abstract’ 


=105: ontop=cost(0)+1: autS(ontop)='Zzz z': 


='Zzz z': 


=106: abstract 


dim autS(max,25), title$(max,40) ,year#(max) ,cost({max) 


Listing one: Four lines to be added to February's listing (see text) 


aut$(x)=nam$: print x;fi11$('.' ,o-len(x)});auts(x); 
fil1$('..',26-len(aut$(x))); 

cls#0: print#0,'Title'\fil1$('-',40):input#0,title$(x): 
print title$(x);fi11$('.' ,41-len(title$(x))); 

cls#0: print#0,'Year' \fi11$( 
print years(x);fi11$('.' ,5-len(year3(x))); 
cls#0: input#0,'Cost'to 10;cost(x): 


cost(0) =x 
print x;fil1]$('.',5-Ten(x));aut$(x);fi11$('.' ,26-len(aut$(x))); 
title$(x)sfi118('.' ,41-len(title$(x)));year%(x); 

fi118('.' ,5-len(year#(x)}));cost(x) 


Listing two 


yearz(ontop)=9999: cost(ontop)=99999: sort 


used, since the QL stores the true length of 
the stored variable there. If your first entry | 
was ‘The 1990 Almanack’, item$(1,0) will 
contain the number 17, 

Enough of explanations for now. Hope- 


title$(ontop) 


-',4): input#0 ,year2(x): 


print cost(x) 


Sinclair/QL World May/June1982 


fully you have coped with editing, and 
corrected any errors. | have just wasted a 
full 10 minutes wondering why one of the 
following procedures wouldn't work - finally 
realising that | had missed off a $ sign! With 
both cartridges in place, enter lrun mdv1_ 
your name. Remember that Ctrl-Spacebar 
is like an emergency brake pedal, there to 
press when things get out of control, allow- 
ing time to stop and make a fresh start. We 
need an extra line in the menu, so list the 
program and stop it with Ctrl-F5 then Ctrl- 
Space to free the cursor. Type the follow- 
ing (line 185 of the listing), including line 
number, but don’t enter it. 


185 print\to 10,'I'to 15;'Sort'to 50:'J' to 
55; Abstract 


Now for a useful short cut. Press the 
right-hand down arrow: in goes line 185, 
down comes 190. Alter | to K, enter, and 
type in line 255 of the listing: 


255 =105: ontop=cost(0}+ 1: autScontop)= 

: Zzz2': titteS(ontop)='Zz2 z': 
yearb(antop)=9999: 
cost(ontop)=99999: sort 


Press the down arrow, alter =105 to 
=107, enter, and type in line 257: 


257 =106:abstract 


Enter and continue listing until line 300 is 
at the top, then free the cursor. We shall 
now tailor the database to a library file with 
four fields: Author, Title, Year and Cost. 
Type in the following (line 430) but don’t 
enter it: 


430 dimautS(max,25), titleS(max,40) yea 
Me(max),cost(max) 


Now for another short cut. Press first the 
down, then the up arrows. The line goes 
into the program and reappears down be- 
low again. Alter 430 to 470, producing two 
identical lines only typed once. Edit 440 by 
deleting the last two items and replace 
them with aut$(x), titleS(x), year%%(x), 
cost(x). Edit 450 from num to cost, and on 
to the records procedure. Enter CLS, enter 
LIST 500 to - stop the screen when full. Edit 
where necessary, or enter both line number 
and line. A symbol “ indicates a blank 
space. Edit 540 and 550 from num to cost. 
Alter Name in line 560 to Author, and 30 in 
fill$ to 25. (see listing two) 

Lines 730/740 alter num(O) to cost(0), 
line 740 removes item$ and num and re- 
places them with the four fields as in line 
440 (not forgetting the backslash), and 
num(0) to cost(0). Line 830 alter num to 
cost. No more alterations now, but the next 
few procedures may cause problems since 
they concern the printer. | bought an Epson 
FX-8C simply because the QL is Epson- 
based, It seemed logical and it accepts 
every Epson manual command. Unfortu- 
nately, | cannot offer advice to owners of 
other machines, and can only provide the 
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del: print#4,chr$(27);'!'"schrs(17);: enddef 
pica: print#4,chr$(27),'!'schr$(0);: enddef 
con: printed ,chr$(27)s'!'s chrs(4);: enddef 
elite: printé4 ,chrs(27); "1"; chr$(1);: enddef 
empica: print#4,chr$(27); "ts chr$(8)s: enddef 
und: print#4,chrs(27);'-' schr$(1); : enddef 
cancelund: print#4,chrs(27);' ' schrs(0 ie 
american: print#4,chr$(27); 'R'schr$(0)3: 
linefeed: print#4,chr$(10);: enddef 
12); 
7)3'A 
351A 


defproc 
defproc 
defproc 
defproc 
defproc 
defproc 
defproc 
defproc 
def proc 
def proc 
def proc 
defproc 


enddef 
enddef 


formfeed: print#4,chr$( : enddef 
spacel0: print#4,chr$(2 ‘schr$(10)5: enddef 
spacel2: print#4,chr$(27 "schr$(12)3: enddef 


Listing three 


defproc sort 
print\\\\to 35;'SLOW SORT'\\to 15 
'B'to 60;'Title' 
print\to 15;'C'to 20;'Year'to 55;'D'to 60; 'Cost' 
print\\to 35;'QUICK SORT'\\to 15;'E'to 20; 'Author'to 55; 
"F'to 60;'Title' 
print\to 15;'G'to 20;'Year'to 55;'H'to 60; 'Cost' 
Tine 30,50 to 30,15 to 150,15 to 150,50 to 30,50 to 30,85 
to 150,85 to 150,50 
j=code(inkey$(-1)): 
sel on j 
=97: slowaut: =98: slowtitle 
=99; slowyr: =100: slowco 
=101: final=cost(0): fastaut 1,final: 
fastitle 1,final 
=103: final=cost(0): 
fasco 1,final 
end se] 
menu 
enddef 


3‘A'to 20; 'Author'to 55; 


cls 


=102: final=cost(0): 


fastyr 1,final: =104: final=cost{0): 


Listing four 


SLOW SORT FOR AUTHORS 
defproc slowaut 
cls: e=cost(0) 
for f=2 toe 
ef 14,30: print f 


aut$(0)=aut$(g): 


3 weet >=saut$(g-1): goto 1440: else: 
? cost(0)=cost(q) 


title$(0)=titles(g): earkciyearite: 
rep sortloop 


if aut$(0)<aut$(q-1): 
title$(g-1): year%(g)=year%(g-1): 
else: exit sortloop 


aut$(q)=aut$(q-1): eb a )= 
cost(q)=cost(g-1): 


if g>1: g=g-1: 
endrep sortloop 
aut$(g)=aut$(0): 
cost(¢)=cost(0) 
endfor f 
cost{0)=e 
menu 
enddef 


else: exit sortloop 


title$(g)=title$(0): year%(g)=yearz(0): 


Listing five 


Del gives a much blacker, double-strike 


following commands for printing within this 
elite (which takes twice as long to print!) 


program (see listing three). 


Listing six 


FAST SORT FOR AUTHORS 
defproc fastaut( lower ,upper) 
local partel 
if lower<upper then 

partel=upper+1 

partaut lower,partel 
fastaut lower ,partel-1 
fastaut partel+1 ,upper 
endif 

enddef 


defproc partaut(i,j) 
Tocal k,valaut$,valtitle$ ,valyear’ ,valcost 
valaut$=aut$(i): valtitle$=title${i): valyear%-year%(i): 
valcost=cost (i) 
k=i 
rep autloop 
rep inck: k=k+1: at 15,40: print k: if aut$(k}>=valaut$ 
exit inck 
rep decj: jsj-1: if aut$(j)<=valaut$: exit decj 
if k<j: swapaut k,j: else: exit autloop 
endrep autloop 
aut$(i)j=aut$(j): title$(i)=title$(j): year%(i)=year%(j): 
cost(i)=cost(j) 
aut$(jj=valaut$: titleS(j}=valtitle$: yeara(j)=valyear%: 
cost(j)=valcost 
enddef 


defproc swapaut(a,b) 

Jocal temaut$,temtitles ,temyear% ,temcost 
temautS=aut$(a}: temtitle$=title$(a): temyeart=year%(a): 
temcost=cost(a) 

aut$(a)=aut$(b): title$(a)=title$(b): year%(a)=year%(b): 
cost(a)=cost(b) 

aut$(b)=temaut$: title$(b)=temtitle$: year%(b)=temyears: 
cost(b)=temcost 

enddef 


PRINT OUT DATA 
defproc prin 
elite 
for x=1 to cost(0) 
printé#4 ,x3fi11$('.' ,6-len(x));aut$(x);fi11$('..' ,26- 
Ten(aut$(x)));titles(x);fil1$('.' 41-len(title$(x))); 
years(x);fi11$('.' ,5-len(year’(x)));cost(x) 
endfor x 
formfeed 
menu 
enddef 


PRINT OUT PROGRAM 
defproc listprog 
empica: und: print#4,'LIBRARY COLLECTION': cancelund 
Jinefeed: elite: american: spacel0: list#4 
formfeed 
menu 


defproc room 


cls#0: print#0,int((PEEK_L( 163856 )-PEEK_L(163852))/1000); 
'K left',int((PEEK_L(163872)-PEEK_L(163856))/1000);'K used’ 


enddef 


Listing seven 


JUST FOR STARTERS 


and con is condensed which, while theo- 
retically giving 137 characters per line, is 
usually constrained to 132. Empica is em- 
phasised pica; und is underline, and 
american ensures that # is printed and not 
£. Default line spacing is one-sixth of an 
inch apart (12/72nds) and spacelO closes 
this down to 10/72nds. This gives 72 lines 
per page, instead of 60. Elite allows 97 
characters per line, pica 80. Many of these 
are used when printing the program. We 
now come to a big block of lines for sorting. 
The sort menu allows for either slow or 
quick sorts of all four fields, but only those 
for author are given. (see listing six). 

The quicksortis based entirely on Marcus 
Jeffery’s article way back in August 1985 
and, as far as | am aware, has not been 
bettered since. | compared both the above 
sorts on identical random numbers with the 
following (partial) results: 


Slow:quick - 50 items = 15secs:5secs, 
100 = 46:10, 500 = over 2000:68, 1000 = 
??:150, and 16 minutes for 5000 using the 
quicksort. 


Slow would be measured in hours. The 
quicksort, however, has two foibles. The 
first requires that arrays are not completely 
filled so, when loading, overestimate total 
entries, otherwise line 255 is inoperable. 
The second quirk is encountered when 
adding asmall number of additional entries 
to a large, sorted list. If you then quicksort, 
it becomes as slow as a bubble sort until it 
has worked its way down to the new en- 
tries. If Marcus reads this, | would dearly 
love to read his solution to the problem. 


Another sort 


One way out of the problem is to sort by 
some other field, then sort the field re- 
quired so that both operate on unsorted 
fields. A quick way to program sorts for 
other fields, having typed the two exam- 
ples for author, is as follows. Determine the 
last program line, in this case 2010. Enter 
auto 1310 (the first line of the author’ 
slowsort) and down comes line 1310. Alter 
1310 to 2020, and enter. 1820 now appears, 
which is altered to 2030 and continues to 
line 1470. List along to 2020 and halt the 
screen. You will see two lines starting with 
‘if aut$’, so change both pairs of aut$ to 
whichever other field you wish to sort. Also, 
if duplicating the quicksort, you will find two 
lines side by side with ‘if aut$’ and ‘valaut$’. 
These want altering to, say, title$ and 
valtitle$ or year% and valyear%. 

These above three procedures conclude 
this article. Alter and abstract are still to 
come. The final three lines are important 
since, if you find yourself with only 20K or 
so left, itis time to fit an Expanderam. You 
can build ‘room’ into the program, perhaps 
after saving, or access it from the key- 
board. 
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NOTICE BOARD 


his is where | fill in some 
i more detail about QL World’s 
change of venue. 
Many people kindly wrote to con- 
gratulate us on having survived 
Robert Maxwell’s demise and ac- 
quiring a new publisher. The pleas- 
ure. of your letters was not dimin- 
ished by the knowledge that our 
new publisher was unlikely to be the 
publisher everyone thought it was. | 
only wished we could have said 
more, sooner. The April issue was 
concluded nearly two months ago, 
at which time we didn’t have suffi- 
cient information to know what was 
happening. 

All this was compounded by two 
other factors - one: our previous 
now-management-boughtout own- 
ers, HHL Publishing, were in the 
process of removing their operation 
from the Maxwell-owned Panini 
House (where QL World’s manage- 
ment was based) to their central 
office at Greater London House; 
two: our new publishers, Arcwind 
Publications, is in the process of 
relocating to better offices. Just two 
small symptoms of the curious state 
of the UK property market at present. 

It appears to be the closure of 
another Maxwell-owned company 
based at Panini House that led to 
the rumour of QL World’s demise - 
but, as you can see, it’s not so. | did 
try to keep Phil Borman at Quanta 
informed as | had planned - but by 
the time we were able to tell him 
what was happening, we were run- 
ning even later than expected. 
Quanta however would have been 
a more reliable source of informa- 
| tion than our ex-office-receptionist. 
Regrettably | was unable to do more 
than drop a hint about that. 


Publisher Mark Kasprowicz, writ- 
ing on page 3 of this issue, has 
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mentioned the extention of sub- 
scriptions to take into account that 
we are only publishing one issue for 
the May/June 1992 period. This was 
a near miss. We were aiming to get 
the May issue out, albeit late, but 
the extra strain imposed by all the 
moving (simply tracing our post has 
become a challenge in its own right) 
brought us to the point that we would 
be ‘catching up’ for months if we 
tried to do two issues in quick suc- 
cession. 

QL World’s postal address is now: 


QL World 

Arcwind Publications 
c/o The Coach House 
Medcroft Road 
Tackley 

Oxon OX5 3AH 


Post sent to this address will still 
reach our office promptly even when 
we have a new office address, so 
fear not. 


Important note: Arcwind have as- 
sumed ownership of QL World from 
the May 1992 issue onwards. Any 
transactions involving the April issue 
or earlier - author's payments, miss- 
ing issues, etc., - are still the domain 
of HHL Publishing, who can be con- 
tacted at 071 388 3171. Michelle 
Fitzgerald will still have access to QL 
World records for the issued pub- 
lished by MCPC and HHL. 

Various people have enquired 
about our attitude to yachting since 
Robert Maxwell declined. We think 
this makes it doubly significant that 
Arcwind started its publishing his- 
tory several years ago with a journal 
called Windsurf - a rather more 
down-to-earth pastime than luxury- 
yachting - which is still going strong. 

| now have some new notepaper, 
albeit of a temporary nature, so | will 


be able to get letters out to people 
who need them. The back issue 
situation will be a bit uncertain until 
we know what we have possession 
of and where it’s going to be stored. 


Mark and Jim from Arcwind went to 
the Bristol Quanta Sub-group work- 
shop at Clevedon at the end of April 
and met many of the QL traders and 
local members. The meeting was a 
great success, with traders from the 
UK and Germany (and Wales, of 
course). It was a pity that the hole in 
our schedule left us unable to print 
the details of the Meeting in time - but 
look on the bright side: we didn’t run 
the poem, either! 


Mark also remarked on page 3 
that we are far from the elevated 
towers of Central London. Only 
country dwellers will appreciate just 
how far, but there are advantages. 
Quite apart from watching my own 
pear tree trying to produce its quota 
of two fruit each summer, | can now 
while away my periodic trips to 
Arcwind in admiring the vast ex- 
panse of oilseed flowering around 
here. It looks as though somebody 
left the lights on in Lothlorien - nec- 
essary now that a change in QL 
World’s colour imposition has (tem- 
porarily, |hope) curbed my excesses 
on the Open Channel pages. But 
then, | don’t suffer from hay fever. 
We should certainly have no more 
trouble with the postal service here 
than we had in London EC1. Not 
until the snowdrifts start, anyway. 


No more concrete information at 
present, except that | hope to be 
able shortly to give sensible an- 
swers to some people who have 
been waiting for them. 

See you next month. 
The Editor. 
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In the second part of 
his assessment of 
desktop publishing 
for the QL, Geoff 
Wicks looks at 
fonts. 


esktop publishing programs, and 

especially good desktop publish- 

ing programs, are not cheap. For 

this reason | doubt if many people 
buy such programs on impulse. | also 
suspect that most buyers are fairly busy 
people running their own business, or are 
actively involved in running some type of 
club or association. The temptation is to 
plunge straight in and use the program 
immediately. It is a temptation to avoid. 
One of the reasons that desktop publish- 
ing software is so expensive is that it is 
complicated, and as with all complicated 
programs there is a fairly long learning 
curve before you can get the best out of 
them. 

My main reason for going into desktop 
publishing was that as secretary of the 
Workers' Council in the agency where | 
was employed, | wanted council publicity 
to stand out from other papers, reports 
and notices which were circulated. The 
agency was just getting into computers, 
and in a friendly rivalry with the ‘computer 
expert’ of the company | was trying to keep 
one step ahead of him. | knew | had an 
advantage in that he believed that the 
agency did not need to buy desktop pub- 
lishing facilities, especially as that would 
mean extra training for the staff. 

All the same, until Digital Precision re- 
leased Professional Publisher my opinion 
was that the use | could make of desktop 
publishing was mainly restricted to short 
documents. What | was not to know is that 
just at the point at which | received Pro- 
fessional Publisher and was thinking of 
widening my horizons, a conflict was to 
arise inthe Workers' Council which resulted 
in my sudden resignation on a matter of 
principle. Suddenly | had enough time on 
my hands to explore the capabilities of 
Professional Publisher in greater detail 
than | had expected. 


Bewildering 


A disk containing a desktop publishing 
program contains a bewildering array of 
files. If my calculations are correct, my 
edition of Front Page Extra consists of 26 
files containing more than 193K of code. 
Desktop Publisher Special Edition uses all 
but three of 918 disk sectors and has 35 
files, while Professional Publisher has 107 
files and has only 12 out of 1404 sectors on 
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the disk free. In addition to the main pro- 
gram, there can be runtime programs or 
toolkits, auxiliary programs or printer driv- 
ers which may have to be loaded and used 
separately, standard QL fonts, high reso- 
lution fonts and clip-art. 

The first priority is to separate these files 
into a usable order. | have divided my 
version of Professional Publisher over a 
number of disks. One set contains the 
main program, toolkits, etc.; the second all 
the standard QL fonts; the third the high 
resolution fonts; and the fourth the clip art. 
You can then add material from other 
sources. Lightninghas more QL fonts; you 


will copy all the Professional Publisher low 
resolution fonts from disk 1 to disk 2 (Dig- 
ital Precision warn that with some disk 
interfaces this command cannot be used 
for copying clip-art files). Secondly, when 
your disk is complete it is helpful to make 
a hard copy of the directory. This is easily 
done using one line of Basic: 


OPEN #3,ser1 : DIR #3,flp1_ : CLOSE 
#3 


Finally, make at least one and preferably 
two backup copies of all your disks. You 
have spent hard-earned money on desk- 


. Program , Toolkits etc. 
< QL fonts 
No High Resolution Fonts 


i Clip-art 


A BIP disc contains many types of files 


may wish to add fonts from other desktop 
publishing programs, or the Quanta li- 
brary, as well as any you have written 
yourself. There are also extra fonts and 
clip-art on the Professional Toolbox disk. 
The Professional Publisher disk has an 
auxiliary program for converting high 
resolution fonts from DP's earlier program, 
Desk Top Publisher, and these should be 
added to your Professional Publisher disk 
if you have both programs. Look around 
for what you can add to your clip art files 
(although you must be careful not to in- 
fringe anyone else's copyright). You may 
just finda use for those provocative screens 
that come with Eye-Q-— maybe you do not 
want the equivalent of a page 3 girl in your 
publications, but the screen can always be 
cropped to give a smiling face. If you have 
succeeded in producing a screen con- 
taining yourcompany's logo, this deserves 
a place on your clip art disk. 

A few practical hints. When copying from 
the master disk, the WCOPY command on 
your disk interface is very useful. For ex- 
ample: 


WCOPY flp1__qls to flp2__qls (note the 
double underscoring) 


top publishing software, so do not skimp 
on building up a good system just for the 
few pounds that the extra disks will cost. 

The next stage is to make hard copy 
samples of all fonts, both low resolution 
and high resolution. You can of course just 
type out the lower and upper case alpha- 
bet and the numerals, but itis better to use 
the text importing routine to input two or 
three paragraphs of text, as this will give a 
better impression of what a font will look 
like if used in a document. Itis also a good 
idea to headline each sample with the 
name of the font. 


Experiment 


If you are using Professional Publisher 
and the font is produced on a matrix larger 
than 16 x 16 make a printout of the fonts 
using both normal and condensed width/ 
length printing. Even the most unlikely 
fonts can sometimes give an unexpected 
result when printed out using reduction 
techniques. 

Your few paragraphs of text can be 
anything you like, but bear in mind you will 
be seeing the same text again and again. 
| chose the opening words of Under Milk 
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Wood which is the book | would probably 
take with me if marooned on a desert 
island. No matter how many times | see it, 
| never tire of the "sloeback, slow, black, 
crowblack, fishing boat bubbling sea". 

Not all fonts are suitable for printing outin 
this way. Some very decorative display 
fonts do not include both upper and lower 
case letters or numerals. For these fonts, 
just typing out the character set should be 
sufficient. 

When you have completed your samples 
of the fonts, it is time to carry out a similar 
process with the clip-art files. A full size QL 
screen cannot be loaded in Front Page or 
Desk Top Publisher and you may find it 
easier to load the clip-art in Eye-Q or a 
similar program and print it out from there. 


The process of printing out samples of 
the fonts and clip-art will place great de- 
mands on your time, energy, printer ribbon, 
paper and patience. You may begin to 
doubt your sanity for even thinking of go- 
ing into desktop publishing, and start curs- 
ing Digital Precision for including 57 fonts 
and 11 clip art files with Professional Pub- 
lisher, but persevere, as it will save you a 
lot of time later on, as well as bringing you 
great satisfaction. 

When you have completed making all 
the hard copies, put them in a binder 
together with the printed out directories of 
your disks and the instruction manual for 
your program. Add a printout of any up- 
date information contained on the master 
disk or instructions for auxiliary programs 


QUESTION OF DOTS 


such as Grafix and any other information 
you may find helpful. For example, my 
binder also includes the instruction manual 
for Eye-Q. This will now form an invaluable 
reference guide to which you will constantly 
refer when using your desktop publisher. 
When you are not sure what fonts to use or 
have forgotten the name of a font ora file, 
you will regret the time spent in compiling 
the binder. Furthermore, the font samples 
will be useful as demonstration material if 
you ever do work for third parties, and wish 
to show them the range. 

We have now spent a lot of money ona 
desk top publisher. We have spent hours 
getting started on it, but a designed page 
has yet to see the light of day! | hope to 
redress the balance in my next article. 


QL fonts: High Resolution Fonts Symbols Fonts Clip-art 


Text: 


Standard 


Standard 
Sovran # 


Geitaph 


canserif 


Times 


founed. 


Helvetica 


Disptay: 
Sanserif 


BROADLAY 


FINE. 
Metallic 


or Dingbats : 


mB we 


@& Kis 


FRANCE NORWAY ENGLAND SCOTLAND 


QL Contact France. Contact: Jean- 
Louis Dianoux, 38-40 Rue 


"BELG 75018 Paris, France. 


Club Sinclair BruQsL (Belgium) 
Contact: Jaques Tasset, Aarlenstraat 
104, 1040 Brussels, Belgium 


International QL Conference bul- 
letin board system (Swedish and 
English). Contact: Michael 
Cronsten,System ator, Jamten- 
TCL, S Soere 1073, 83030 Lit, Swe- 
den. 


New England Sinclair QL User 
Group (USA) Membership Secre- 
tary: Sherm Waterman, Box 
763, Boston, MA 02114 8763, USA. 
Magazine: NESQLUG News. Editor: 
Peter Hale, 195 Central Ave., Chel- 
sea, MA 02150, USA. 
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Norwe All Sinclair Association 
(NASA) Contact: PMonstad, NASA, 
N-5580 Oelen, Norway. Magazine: 
Sinclair Magazine. 


ITALY 


Qitaly Club Chairman: Roberto 
Orlandi, Via Brescia 26, 25039 
Travagliato (BS), Italy. Tel. (local) +39 
30 11. Magazine: Qitaly Maga- 
zine, Editor: Dr Eros Forenzi, Via 
Valeriana 44, 23010 Berbenno (SO), 
Italy. Tel. (local) +39 342 492323. 


TURKEY 


QL Qlub (Turkey). Contact: Bulent 
Artuz, Prof. Sitesi B/1 D/5, Etiler 
80600, Istanbul, Turkey. 


AUSTRIA 


DER Computer Club. Contact: Peter 
Postl, Stiegerg 5, 1150 Wien, Austria 


Quanta (UK) Membership Secre- 
tary, Bill Newell, 213 Manor Road, 
Benfleet, Essex SS7 4JD. Maga- 
zine: Quanta. Editor: Bill Fuggle, 
20 Widnes Avenue, Selly 
Birmingham B29 6QE. 

Bristol sub-group: Roy Brereton, 
94 Teignmouth Rd, Clevedon, 
Avon BS21 6DR. 

Essex sub-group: Dave Walker, 22 
Kempton’s Mead, Potters Bar, 
Herts EM6 3HZ. 

London sub-group: Jeremy Davis, 
6 Elmcroft Crescent, dela 
Middlesex HA2 6HN. 

Northern Ireland: Billy 
Turkington, Fairyhill, Rostrevor, 
Newry, Co., Down BT34 3BB. 
Mid-Southern sub-group: Geoff 
Fish, 44 Billing Avenue, Wi 

Berks RG11 4JE. 

QL User Group (West Midlands): 
Mike Bedford-White, 16 Westfield 
Road, Acocks Green, Birmingham 
B277TL. 

QL MUG: 3 Barnard Road, 
Birkenhead, L43 1TT. 


Scottish OL Users Group Contact: 


HOLLAND 


Sin_QL_Air (Netherlands) Mem- 
bership Secretary: Bob Visser, 
Snelrewaard6,2904SN Capelle,a/ 
d Ijssei, Netherlands. Magazine: 
Quasar. Editor: C H M Biemans, 
Elzenstraat 5, 5461 CL Veghel, 
Netherlands. 


GERMANY 


Sinclair QL User Club eV (Ger- 
many) Foreign Contact: Franz 
Herrmann, Talstrasse21,d-W5460 
Ochenfels, West Germany. Maga- 
zine: Quasar. 


Qliper Editor: Marcos Cruz, Aca- 
cias 44, 28023 Madrid, Spain. 
Magazine: Qliper. 
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In part 7, Alan 
Bridewell gets to 
grips with the 
complexities of 
inputting numbers. 


his series has been building a library 
of small chunks of assembler lan- 
guage code. Each chunk will do a 
recognisable job within a program, 
and be fully annotated, so that it will be clear 
exactly how to join it to other chunks of code to 
make a program, and what changes may be 
necessary to make the chunks fit together. 
This month we shall address the prob- 
lem of inputting numbers into a program. Why 
should this a problem? Because keyboard 
input does not start as a number. It starts as a 
string of characters. The program then has to 
work out if the string will convert into a valid 
number, and if it does not, the program must 
rejectit (hopefully, without halting the program 
prematurely). 


Leading spaces 


This is not such a simple matter as you might 
imagine. For instance, the existence of lead- 
ing or trailing spaces might not cause us any 
problems, but they may be part of the string of 
characters, and have to be processed. And 
what about decimal points? Is 0.123 a valid 
number, and if so, what about .123? Is 123. as 
valid as 123? Then we have the matter of 
minus signs, and, of course index notation, 
like 1.23E-4, which, hopefully, we can get the 
program to recognise as 0.000123. 

For those interested in this particular 
problem, there has been quite a lot of corre- 
spondence in QL Worfdin recent months on 
error-free numeric input into Basic. That will 
give you an idea of the complexity of the 
problem in Basic. In machine code, the prob- 
lems become mind-boggling! Suffice to say 
that my programming skills are not up to 
dealing adequately with the problem, even 
with the help of Qdos routines. 

The simple way out of all this is to by- 
pass the problem by avoiding having to input 
numbers directly from the keyboard. We do 
this by getting the program to offer a default 
number to the user. This number can then be 


stematic 


Machine Code 


Programming 


increased or decreased by use of the cursor 
keys. In this way the program always has a 
number which is error-free. Not only that, but 
by suitable programming, w can arrange that 
the number is always within the range of 
acceptable values, integer or floating point, 
positive or negative, and to a suitable number 
of significant figures of accuracy for our pur- 
pose. 

A common use of numeric input is to 
give parameters for drawing shapes on the 
screen; for instance, the x and y co-ordinates 
of a point, or the radius of a circle. Even if the 
program usercan inputnumbers correctly, itis 
often difficult to know exactly what sized 
numbers are needed to draw whatis desired. 
itis much better to get the program to draw a 
default figure, and then allow the user to alter 
it using cursor keys. 

Clearly there are some situations when 
numbers must be entered directly from the 
keyboard. For instance, spreadsheets and 
databases would be pretty useless without 
this facility. (However, if you're already in the 
business of writing spreadsheets, then this 
article is notreally aimed at you!) Itis surprising 
how many situations there are where direct 
keyboard input of numbers can be avoided, 
and in such cases it most definitely should be 
avoided. 

Fbyte (Listing one) is the starting point 
in all this. All it does is read the keyboard and 


Listing 1 


ee ee ee ae ee 


i 
«BYTE DC.B ° 


“Fe Me eh A IRAE ARE TEE AE FE EA ED le le ec eb a a ae 
“FBYTE’ 

Ae BEE ae ee a ae A a 0 a a a a aa 0 aa a aaa 

THIS WILL INPUT A KEYPRESS AND RETURN THE ASCII VALUE IN BYTE 


-FBYTE MOVE.L (A7) AO 3 OR 4(A7),A0O OR B(A7),A0, ETC. 

} CONSOLE CHANNEL ID IN AO 

LEA.L BYTE,Al } BYTE STORE ADDRESS IN Al 

MOVE .W #SFFFF,DS 5; INFINITE TEMEQUT 

MOVEQ #1,D0 3 IO_FBYTE IN DO 

MOVE.W #0,D1i 3 CLEAR WORD IN Di 

TRAP «3 

MOVE .B Di, {Al} 1 STORE BYTE 

BRA.S NEXTBIT 3} SKIP BYTE 


3 Palatka li lalate atelaliehaiaiaiatelalalahadel 


putthe value of the keypress intoa store called 
BYTE. Any key, or combination of keys that 
has a character code number, will result in a 
value in BYTE. Clearly, this could be used for 
detecting keypresses for any programming 
purpose, not just the applications considered 
in this article. The only point that needs to be 
made is that when it encounters Fbyte, the 
program waits for a valid keypress. This is 
differentfromKeyrow, consideredin an earlier 
article, which can detect any combination of 
keys, but does not wait if no keys are being 
pressed. 


Suitable routines 


Having recorded a keypress value, we next 
need suitable routines to act according to the 
value recorded. This requires a different rou- 
tine, depending on whetherthe numbers tobe 
altered are integer or floating point numbers. 

Updownint (Listing two) is a routine to 
increase or decrease the value stored in INT, 
depending on the value found in BYTE. If this 
is tobe used with Fbyte, then the store BYTE 
is extra and can be deleted. It has been 
included because it is possible that the BYTE 
value used may not have come from Fbyte. It 
could, for instance, be the result of some 
program calculation, or a flag to show a par- 
ticular state had been reached, requiring an 
integer value to be changed. 
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Listing 2 


(eA ke a A A a lle a a a aE Ee 
*UPDOWNINT ° 
a A be ak Ee a a a i le i i a i ab a a a a 


THIS INCREASES OR DECREASES A STORED INTEGER, DEPENDING ON THE ASCII 


VALUE OF A BYTE. 
"FBYTE’ ROUTINE. 
3; IF BYTE = 208 (UP ARROW), 


THE VALUE OF THIS BYTE WILL PROBABLY BE FIXED BY THE 


INTEGER = INTEGER + 1 


IF BYTE = 216 (DOWN ARROW), INTEGER = INTEGER -1 
IF BYTE = 10 (ENTER), BRANCH TO <ENTER> CODE 
IF BYTE = ANYTHING ELSE, INTEGER IS UNCHANGED 


3 
«BYTE DC.B ° 


LEA.L 
UMFi.p 
BEG.S 
LEA.L 
CMP1.5 


é 
»UPDOWN BYTE ,A 
Plt. 


uP 


BEQ.5 
LEA.L 
CMPI.B 
BEQ.S 
BRA.S 
LEA.L 
MOVE.W 
CMPI.W 
BEQ.S 
ADDI.W 
BRA. S 
LEA.L 
MOVE. Ww 
CMPI.W 
BEQ.S 
SUBI.W 
BRA.S 


DOWN 


ENTER 


INT,A1L 


INT,A1 


; 
+ INT DC.W 10 


-a5 5 oe SS eS 


BYTE, AL 
#214, (Al) 


BYTE,A1 
#10, (AL) 


NEXTBIT 


(Al) ,DO 
#100,D0 
NEXTBIT 
#1, (Al) 
NEXTBIT 


(A1) ,DO 
#-100,D0 
NEXTBIT 
#1, (ALD 
NEXTBIT 


3} BYTE INPUT 


1 3 BYTE ADDRESS IN Al 


jue + 
3 iF SO, THEN UP 

3 BYTE ADDRESS IN Al 

» 18 BYTE = 216 7 

3 IF SO THEN DOWN 

3 BYTE ADDRESS IN Al 

3 IS BYTE = 10 ? 

3 IF SO, BRANCH TO <ENTER> CODE 
3 IF NEITHER, SKIP TO NEXT BIT 
3 INTEGER ADDRESS IN Al 

3 COPY Al TO DO 

3 IS INT = 100 7 

3 IF SO, DO NOTHING 

3 ADD 1 TO INTEGER 

5 SKIP TO NEXT BIT 

3 INTEGER ADDRESS IN AL 

+ COPY Al TO DO 

4 IS INT = -100 ? 

5 IF SO, DO NOTHING 

} SUBTRACT 1 FROM INTEGER 

3 SKIP TO NEXT BIT 


} INTEGER OUTPUT 


F Ti athaliatintalieMiaMateataaliatndindietatadia Ma MalieMalaiaRiehalataaiaietaatalnindiaiattniictalaliaRaiaintaialataiadieialeReRaleicRalshsReRaRelniaiaiaiiiedaiel 


The default setting of Updownint looks 
for three particular values in BYTE. Assuming 
BYTE had been set by Fbyte, 208 would 
indicate <UP ARROW>, 216 would indicate 
<DOWN ARROWS, and 10 would indicate 
<ENTER> had been pressed. These can be 
altered as required. You may, for instance, 
want to detect <SHIFT>, <ALT> or <CTRL> 
keys in combination with the cursor keys. Or 
suppose you were trying to adjust the x co- 
ordinate of a screen pixel. You would probably 
wish tolook for <LEFT> and <RIGHT> to alter 
the value. The numbers for all these can be 
found in your QL User Guide. 


»sting & 


lf BYTE = 208, then INT increases by 
one. 

If BYTE = 216, then INT decreases by 
one. 

lf BYTE = 10, then it branches to a 
designated routine. Any other value of BYTE 
is ignored. 

Ifthe value of INT is atthe default upper 
or lower limit, then the value does not go 
beyond the limit. 

Again, these defaults can be altered as 
required. You could, for example, alter INT in 
step of 10, or 100, or whatever. The default 
limit can be changed to any required values. 


FETE TEE TE TEE TE TEE EEE ERE EERE EE ERE E EEE EEEE ERE REE EE 


“PRINT 


INT’ 


“ie Ae ie i i A i i GS i a a a a a a a 


THIS WILL CONVERT AN INTEGER TO ASC 


PRINTINT MOVE.L {A7) ,AO 
LEA.L 
MOVE. Ww 
MOVE. W 
JSR 
BRA.S 


INT,Ai 
tai) ,D1 
$CE AZ 
(a2) 
NEXTBIT 
5 

J INT 


DeC.W 10 


II AND PRINT IT OUT 


3 OR 4(A7),A0 OR B(A7),A0, ETC. 
} CONSOLE CHANNEL ID IN AO 

} INTEGER STORE ADDRESS IN Al 

} INTEGER IN Di 

3 UT_MINT VECTOR IN A2 


3 SKIP INTEGER 


s] 
j Soe e eee eee eee eee Salata halite teticdiadiatiatastataliataateataniatedattndatadatshalnieatatrisiniatciedeiaiatsiniiaiaiaied 
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Printint (Listing three) will convert the 
integer INT into an Ascii string, and print the 
string to a console channel, if required. Itis a 
very simple routine needing little explanation. 
Basically, the Qdosvectoredroutine CN_ITOD 
to convert the integer into an Ascii string, 
which it then prints into the console window. If 
itis to be used with Updownint, the store INT 
is extra and is also to be used with Fbyte to 
monitorthe changing value of NT, asitstands, 
it will print new numbers in the new cursor 
position of the window. Ifitis required to over- 
write the old value, then the cursor will need 
resetting each time, and also suitable blanks 
printedif the new number does not completely 
overwrite the old. 

As you can see, dealing with integer is 
fairly simple. By comparison, dealing with 
floating point numbers is far more involved. It 
is also much slower, an_ integers should 
always be usedin preference ifthy are suitable. 


Floating points 


In part 5 (March 1992) of this series | intro- 
duced the method normally used forputting 
floating point number into programs. | start 
with two integers with floating point numbers. 
They are then either multiplied together, or 
divided one into the other, to produce a single 
floating pointnumber. This can resultin alarge 
range of floating point numbers, more than 
enough for most applications. 

Updownfp (Listing four} is quite a 
complicated routine which does for floating 
point numbers what Updownint does for inte- 
gers. This means that a floating point number 
can be either increased or decreased ac- 
cording to the value in BYTE. However, the 
routine does not itself produce the floating 
point number, but the two integers which are 
to be converted to a floating point number. It 
also sets a flag if the required floating point 
number is to be negative. It does this by 
detecting if BYTE = 45, which is what Fbyte 
gives it when the minus sign is pressed. 
However, the most important thing about 
Updownip is that it is designed to produce a 
limited range of numbers to a predetermined 
number of significant figures of accuracy. This 
is probably best explained by showing what 
the default settings do. 

As printed, Updownfp will give floating 
pointnumbers with two significant figures over 
a range 9E-4 (ie O.0009) up to 100, positive 
or negative. It achieves this as follows: the 
floating point number is the result of INT1/ 
INT2. If BYTE =208 (<UP> key pressed) then 
INT1 is increased by one until it reaches 100. 
If itreaches 100, then itis changed to 10, and 
INT2is divided by 10. If-BYTE=216(<DOWN> 
key pressed) then INT1 is decreased by one 
until it reaches 9. If it reaches 9, then it is 
changed to99 and INT2 is multiplied by 10. Let 
us see the effect of this in practice. 

Suppose INT1 = 98 and INT2 = 10, 
giving the number 98/10 = 9.8. The <UP> key 
will result in INT1 going up to 99 and INT2 
remaining 10, giving the number 99/10 = 9.9. 
However, if the <UP> key is pressed again, 
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INT1 becomes 100. When the routine detects 
this, it makes INT1 = 10, and divides INT2 by 
10 to make it 1. This gives the number 10/1 = 
10. If the <UP> key is pressed again, INT1 is 
increased to 11 and INT2 remaining 1, gives 
the number 11/1 = 11. So a sequence of 
successive <UP> keypresses will produce 
the numbers 9.8, 9.9, 10, 11, ... etc. giving two 
significant figures all the time. Also, since 
INT1 cannot go above 100, and INT2 cannot 
go below 1, the maximum number is 100/1 = 
100. 


Asimilar process works in the opposite 
direction. Suppose INT1 = 11 and INT2 = 1 
giving 11/1 = 11. The <DOWN+> key will result 
in INT1 becoming 10 and INT2 remaining 1, 
giving the number 10/1 = 10. However, if the 
<DOWN> key is pressed again, INT1 be- 
comes 9. When the routine detects this, it 
makes INT1 = 99, and multiplies INT2 by 10 
to make it 10. This gives the number 99/10 = 
9.9. If the down key is pressed again, INT1 
becomes 98 and INT2 remains the same, 
givingthe number 98/10=9.8. Soasequence 
of successive <DOWN> keypresses will pro- 
duce the numbers 11, 10, 9.9, 9.8 ... etc., 
giving two significant figures all the time. Also, 
since INT1 cannot go below 9 and INT2 
cannot go above 10000, the minimum number 
is 9/10000 = 0.0009 or 9E-4. 

INT1 and INT2 can be the integers in 
the parameter table in one of the routines that 
uses floating point numbers to print graphics 
(Line, Ellipse, etc.) in which case they are 
extra and can be deleted. 


Rate of change 


There are situations where this ‘fixed signifi- 
cant figures’ mode of changing numbers may 
not be appropriate. For instance, changing 
the x and y co-ordinates of the centre of a 
circle would not want numbers to change 
slowly when close to zero, and rapidly when 
big. The numbers would have to change at 
the same rate whatever they were. In this 
case, wecan use Updownintto give INT 1 and 
fix INT2 to some suitable value, depending on 
the size of numbers required. 

Having obtained two integers, we now 
need to convert them to the required floating 
point number. Again, if we are using the 
graphic routines (Line, Ellipse, etc.) these 
already contain all the required code for this. 
However, if we are using our floating point for 
some other purpose, we need a routine to 
generate the floating point number from the 
two integers. Twointstofp (Listing five) does 
this job. Itinvolves the setting up and use of an 
Ri stack, andsome addressing relative to A6. 
This was dealt with in some detail in part 5 
(March 1992) of this series, and | would 
suggest you refer back to that for more infor- 
mation. 

Essentially, what the routine does is 
this. It sets up an RI stack in the program's 
data space. Itmoves INT1 onto the stack and 
converts it to floating point. It then does the 
same with INT2. With two floating point 
numbers on the stack, it divides one into the 
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Listing 4 


SEE A a a a a 
“UP DOWINE P* 
SPEER E ORES OE ESET LEER E SEES ESSERE REE OEE EEE 
THIS INCREASES OR DECREASES TWO STORED INTEGERS, DEPENDING GN THE ASCII 
VALUE OF @ BYTE. THIS VALUE WILi PROBABLY BE FIXED BY THE FBYTE ROUTINE. 
THE INTEGERS, INT1 AND INT2 ARE DESIGNED TO BE CONVERTED TO F.P. NUMBERS 
AND THEN MULTIPLIED OR DIVIDED TO PRODUCE F.P. NUMBERS OVER A WIDE 
RANGE OF VALUES. THE RANGE AND SIGNIFICANT FIGURES OF THE NUMBERS CAN 
BE ALTERED BY CHANGING HOW THE TWO INTEGERS ARE AFFECTED BY THE INPUT 
BYTE. 


THE DEFAULT SETTINGS ARE: — 


1 
i 

; 

3 

3 

3 

i 

3 

FT 

3 

3 

3 

5 

5 FOR MER TIPLY 1- 

} IF BYTE = 208 (UP ARROW), INTI = INT: + 1 

‘ IF INT! -> 100, THEN INT1 = 10 AND INT2 = INT2 # 10 
} IF BYTE = 216 (DOWN ARROW), INTI = INTi — 1 

’ IF INTL —> 9, THEN INT1 = 99 AND INTZ = INT2 / 10 
3 THIS WILL GIVE 2 SIGNIFICANT FIGURES OVER A RANGE 100 TO 1E& 
' 
1 
Hl 
' 
4 
1 
' 
; 
F) 
3 
, 
i 


FOR DIVIDE s- 
IF BYTE = 208 (UP ARROW), INTL = INT + 1 
IF INTi —> 100, THEN INT1 = 10 AND INT2 = INT2 / 10 
IF BYTE = 216 (DOWN ARROW), THEN INTi = INTI — 1 
IF INT1 => 9, THEN INTL = 99 AND INT2 = INT2 * 10 
THIS WILL GIVE 2 SIGNIFICANT FIGURES OVER A RANGE 9E-4 TO 100 
‘ 


IF BYTE = 45 (MINUS), CHANGE SIGN 
IF BYTE = 10 (ENTER), BRANCH TO <ENTER> CODE 
IF BYTE = ANYTHING ELSE, INTEGER I8 UNCHANGED 


«BYTE Dc.B ° § BYTE INPUT 


MFLAG ADDRESS IN Al 
CLEAR MFLAG 

BYTE ADDRESS IN Al 
Is BYTE = 208 7 

IF 60, THEN UP 


i 
~UPDOWNFP: LEA.L MFLAG,AL 4 
MOVE. W #0, (AL) ' 
LEA-L BYTE ,AL r] 
CMP1.B W20B,(AL> 4 
BEQ.S uPFP ' 
LEA.L BYTE,AL )} BYTE ADDRESS IN Al 
CMPI.B #216,(Al) 4 18 BYTE = 214 7? 
BEQ.S DOWNFP 5 IF 80 THEN DOWN 
LEA.L BYTE,AL ) BYTE ADDRESS IN Al 
CmPI.B #45,(AL) 5 IS BYTE = 45 7? 
BEQ.S SFLAG 1 IF 80, SET MFLAG 
LEA.L BYTE,AL 1} BYTE ADDRESS IN Al 
CmMPI.B #10,(Ai) | I6 BYTE = 10 ? 
BEG ENTER 4 IF 60, BRANCH TO <ENTER> CODE 
BRA.S NEXTBIT ) IF NEITHER, SKIP TO NEXT BIT 
3 MAKE NUMBER BIGGER. ADJUST VALUES TO SUIT. 
~UPFP LEA.L INT1,AL INT1 ADDRESS IN Al 
LEA.-L INT2,A2 INT2 ADDRESS IN AZ 
MOVE.W (Al), DO INTi IN DO 
CMPI.W #100,D0 INT1 ALREADY 100 7 
BEQ.S NEXTBIT IF SO LEAVE UNCHANGED 
ADDI.W wi, (Ald ADD 1 TO INTL 
MOVE. (Al), DO INT1 TO DO 
CMPI.W #100,D0 IS INTL =100 ? 
BNE.S NEXTBIT If NOT, NEXTBIT 
MOVE. W (A2) ,DO INT2 TO DO 
CMPI.W #1,D0 18 INT2 = 1 7 
3 REPLACE PREVIOUS LINE WITH NEXT LINE IF MULTIPLYING 
, CMPI.W #10000,DO 5 IS INT2 =10000 IF MULTIPLYING 
BEQ.S NEXTBIT THEN LEAVE INT1,2NT2 UNCHANGED 
MOVE.W #10, (AL) ELSE, INT1 = 10 
MOVE. W {A2) , DO INT2 IN DO 
MOVE.W #10,Di 10 IN Di 
DIVvU D1,DO INT2/10 IF DIVIDING INTI/INT2 
) REPLACE PREVIOUS LINE WITH NEXT LINE IF MULTIPLYING 
f] MULU Di, DO INT2#10 IF MULTIPLYING INTI#INT2 
MOVE. Ww DO, (AZ) NEW DO VALUE IN INT2 
BRA.5 NEXTBIT SKIP TO NEXT BIT 
3 MAKE NUMBER SMALLER. ADJUST VALUES TO SUIT. 
+ DOWNFP INTi,AL 3 INT1 ADDRESS IN Ai 
INT2 ADDRESS IN AZ 
INT1 TO DO 
INT1 ALREADY 9 7 
IF SO, LEAVE 
Sus RACT 1» FROM INTL 
amia TO DO 
Is INTL = 9 7? 
IF NOT, NEXTBIT 
INT2 TO DO 
Is INT2 = 10000 IF DIVIDING 
3 REPLACE PREVIOUS LINE WITH NEXT LINE IF MULTIPLYING 
ry . CMPI.W #1,D0 IB INT2 = 1 IF MULTIPLYING 
NEXTBIT THEN LEAVE INT1,INT2 UNCHANGED 
ELSE, INT1 = 97 
INT2 IN DO 
io IN Di 
INT2#10 IF DIVIDING INT1/INT2 
MULTIPLYING 
INT2/10 IF MULTIPLYING INTL#®INT2 
NEW DO VALUE INTO INT2 
BRANCH TO NEXT BIT 


ee Te ee 


bo 
’ 
} REPLACE PREVIOUS LINE WITH NEXT LINE I 
1 DIVU Di ,DO 
MOVE. W DO, (AZ) 
BRA. NEXTBIT 
) SET THE FLAG FOR A MINUS F.P. NUMBER 
-SFLAG MFLAG.AL MFLAG ADDRESS IN AL 
@i, tAlr SET MFLAG 
NEXTBIT BRANCH TO NEXT BIT 


oe Wee wee 


' 

-MFLAG o 

+ INTI . 106 7; ADJUST DEFAULT SETTINGS OF 
-1INT2 10000 1 INTEGERS TO SUIT 

J PERSE REESE EE EEE EERE REESE TELE EEE ETE EER ER EEE RETR EEE RE REET EEE EEE EEE EE EE 
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Listing 5 


‘i A ae a ta a i a aaa 
*“TWOINTSTOFP * 

A he ae a A dd eee 

THIS ROUTINE TAKES TWO INTEGERS, CONVERTS THEM TO F.P., THEN EITHER 

DIVIDES OR MULTIPLIES THEM TO PRODUCE AN F.P. NUMBER. THE INTEGERS MAY 


characters, all the time looking for an E. If it 
comes to a space without finding an E, then the 
string is not in index form, and it proceeds to 
strip any trailing zero before printing the string. 
Ifit finds an E it looks for a minus sign in the next 
character. If it finds one, it allows two more 


BE FIXED BY THE “UPDOWNFP' ROUTINE FOR F.P. 


«INTL DC.W oO 
» INT2 Dc.W o 


' 
} PUT RI STACK 50 BELOW TOP OF DATA SPACE. 
~SO(AS) AL 


» INTSTOFP LEA.L 


! 
MAKE ROOM FOR 18T 


PUT FIRST INTEGER 


CONVERT TO F.P, 
#a,DO 
#11C,A3 
. JGR (a3) 
REPEAT FOR 2ND INTEGER 
SUBO.L #2,AL 
MOVE. 0 
MOVER #a,DO 
JSR (a3) 


NOW DIVIDE GNE F.P. NUMBER BY THE OTHER 


MOVED #$10,D0 
MOVEG #S0E, DO 
JSR (a3) 
NOW CHANGE SIGN IF MFLAG IS SET 
MFLAG, AZ 
#1, (A2> 
NEXTBIT 
##14,DO 
(ad) 


1 RI STACK ON Al 


3 INTEGER = 2 BYTES 
INT1,O(AS,A1.L) 


4 #RI_FLOAT ON DO 
» RI_EXEC ON A 


INTZ,0(A6,A1.L) 


TO LEAVE F.P. ON RI STACK. 
#RI_DIV ON DO 
@RI_MULT ON DO (IF MULTIPLYING) 


HFLAG ADDRESS IN A2 

18 MFLAG SET ? 

IF NOT BRANCH TO NEXT BIT 
#RI_NEG ON DO 


KEYBOARD INPUT 


characters after the E (the minus sign and a 
number). If the next character is not a minus 
sign, that character becomes the lastcharacter 
allowed in the string. Whatever string it has at 
that stage is printed. 


Limitations 


Printfp seems to work well enough, and its 
limitations do not present many problems. Al- 
though | can see a need for it sometimes, | 
personally have not had cause to use it in any 
program | have written, except in testing 
Updownfp. Normally, the kind of numbers that 
have to be displayed on the screen are ones 
that can use integers. The main exception to 
this mustbe programs written to carry outlarge 
complicated computations and then display 
them numerically rather than graphically or any 
other way. 


a a a A a ee a aE EEE EE 


other to leave one floating point number. (It 
also has the alternative option of multiplying if 
that is what is to be done.) Finally it looks ata 
flag which is set if the number required is 
negative, and changes the sign of the floating 
point number if the flag is set. 

If we wish to print this floating point 
number to a console window, we can use 
Printfp (Listing six). This should be a very 
simple routine, almost identical to Printint, 
except that it uses the Qdos vectored routine 
CN_FTOD to convert the floating point to an 
Ascii string before counting the characters 
(CN_FTOD does nothave a character count) 
and then printing it. However, my experiences 
with this Qdos routine have not been good, 
and it seems to throw up trailing zeros and 
other spurious digits after the string. Since it 
also does not tell us how long the string is, 
finding its true end can be a bit difficult. | don’t 
know whether all thisis caused by a flaw in my 
programming, or a Qdos bug, or what, and | 
would be pleased to hear from anyone who 
can throw light on the matter. 


Single digits only 


To get over these problems, | have arranged 
for Printfp to handle only single digit expo- 
nents (ie in the range E-9 to E9}. This will give 
a range of numbers big enough for most 
purposes. 

First the routine sorts out the row and 
column position of the cursor for printing. It 
thenuses CN_FTODtoobtain the Ascii string 
for the floating point number. Itnext proceeds 
to work its way through the string counting the 


Sinclair/OL World May/June 1992 


Next time we shail look at how to use 
these techniques to position and draw shapes 
on the screen in the way cad programs do. 
Happy coding! 


Listing 6 


i 
4 
4 
‘ 
‘ 
‘ 
4‘ 
J 
‘ 
i 


i 
i 


«MINUS (AO) +, DO 


« ONEMORE 


PRIni=P 


POPES EO EER EEE EEEREE ER TAREE LETHE ENEOHOHEET EEE EERSTE CHT EET E OTe 
“PRINTFP* 

PRON OHE EEE E EET OEEEOTENE OSU EEEESEEEDEOTEOOTEHE SH REEHEEREEO EERO RET EOREEEEe 

THIS WILL PRINT OUT AN F.P. NUMBER ON THE TOP OF THE RI STACK AT A GIVEN 

POSITION IN THE CONSOLE WINDOW. 

** NOTE #* BECAUSE IT TRUNCATES THE STRING TO REMOVE TRAILING ZEROS AND 

SPURIOUS DIGITS, IT WILL ONLY ALLOW GINGLE DIGIT EXPONENTS (+ OR -), 

GIVING EXPONENTS IN THE RANGE E~9 TO EY. 


MOVE CURSOR TO PRINT POSITION 
De 1{A7) ~AO OR 4(A7),AO OR GiA7),AO ETC. 
CONSOLE CHANNEL 1 


DIN AO 


MOVE .W @60,01 Coun O Al7SET TH REQUIREMENTS 
MOVE.» @s0,02 Ue O ADJUET TO Kau RENENTS 
MOVE. @SFFFF,DS » INFINITE TIMEOUT 
TRAP os ' 
CONVERT F.P. NUMBER ON R1 STACK TO ASCII STRING 
LEA.L STRING, AO » GTRING ADDRESS IN AO 
SUBA.L Pa, RO ») MAKE AO RELATIVE TO Ad 
MOVE.» $FO,AS s CALFTOD IN AS 
J5R (A3> 
GET STRING LENGTH MINUS TRAILING ZEROS AND/OR SPURIOUS DIGITS 
Le STRING,AO 4» BTRING ADDRESS IN AG 
STRING_L,AL » BTRING_L ADDRESS IN AL 
3 SET STRING LENGTH TO ZERO 
PuT NEXT CHR IN DO 


' 
' 
MOVEO ##10,D0 5 @8D_POG IN DO 
a 
‘ 


i 
+ COPY CHR INTO Di 

1 18 CHR A SPACE 7 

1 IF GO, CLEAR ANY TRAILING ZEROS 
} IF NOT, INCREMENT STRING LENGTH 
’ 
' 
’ 


IS CHR 'E' 7 
IF 60, LOOK FOR MINUS GIGN 
IF NOT, LOOP TO WEXT CHR 
1F ‘E* FOR EXPONENT I8 DETECTED, THE NEXT BIT LOOKS FOR MINUS SIGN. 
IF ONE IS FOUND, THERE ARE TWO MORE CHARACTERS, OTHERWISE ONLY ONE. 


3 PUT NEXT CHR IN DO 
#45,D0 4 DOES MINUS SIGN FOLLOW ‘E' 7 
ONEMORE 4 IF NOT, ONLY ONE MORE CHR 
@2,(A1) | ADD 2 TO STRING LENGTH 
PSTRING 4) PRINT TRUNCATED STRING 
#1,(A1) 5 ADD ONE TO STRING LENGTH 
BRA. PSTRING 4 PRINT TRUNCATED STRING 
THE NEXT BIT REMOVES TRAILING ZERDG IF THERE IS NO EXPONENT. 


»PREVCHR #1,A0 GET PREVIOUS CHR 


-PSTRING 


(AO) ,DO PUT CHR iN DO 
DO, DA AND COPY INTO D1 
#32,D0 18 IT A GPACE 7? 
PREVCHR IF 6O, LOOP TO PREVIOUS CHR 
#49,Di Ig IT ZERO 7 
PSTRING IF NOT PRINT STRING 
#1, (Ai? REDUCE STRING LENGTH BY ONE 
PREVCHR LOOP TO PREVIOUS CHR 
PRINT STRING 
{A7),A0 | CHANNEL ID IN AO 
$D0,AZ JUT_MTEXT IN AZ 
(a2? 
FBYTE 


Ly 
»=STRING_L - 10 1 ENOUGH SPACE FOR 
«STRING B . ‘4 ANY F.P. STRING 
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GRAPHICS 


THE PAINTER V4.04... Aan .. £25.00 
[F 512K] 100% machine code art and graphics pro- 
gram, by PROGS of Belgium. Multiple screens, can be 
mouse controlled, selection of fonts, patterns. many 
facilities. 


THE CLIPART .. ‘ . £12.00 
[F 128K] 3 disks full of clipart pictures, “for use with 
mast DTP/graphics programs. 


QRACTAL ... 
[F 512K] Machine code fractals program. Displays 
Julia or Mandelbrot sets. 


QRACTAL SCREENS 
[F 128K] A disk full of sample screen pictures gener- 
ated with the QRactal program. Buy this to see the 
sample pictures, then ask about a discount when 
buying ORactal itself! 


IMAGE PROCESSOR V2 ............0.-.22001-.-- £15.00 
[F 256K] Image enhancement, edge detection, zoom 
and edit, touch up picture generated by digitisers, 
scanners or other graphics programs. Works with 
mode 4 or 8 screens, 

UPGRADE OLD IMAGE PROCESSOR .......... £10.00 
(Send proot of purchase of old version) 


PD2 CLIPART f 

F 128K] Clipart made for PD2 Plus, but available in 
screen farmat for use with other DTP/graphics pro- 
grams If required, 


SCREEN SNATCHER .. bibs . £10.00 
FIM 128K] ‘Grab’ screen displays from ‘within other 
programs that are not able to save their own displays. 


TEXT ‘'N’ GRAPHIX o.oo occu ceceeereereere £20.00 
F 256K] NEW! Allows you to insert screens, or part 
of QL screen pictures, into a Quill or plain text file 
printout. Mix NLQ text and graphics in the same 
printout! Currently only for use with 9 pin Epson 
compatible dot matrix printers - ask about a version 
for 24 pin printers due soon. 


TRANS24 .. ~ oe £10.00 
[F IM 128K] ‘Translates 9 pin graphics printouts into 
data for a 24 pin printer. 


TEXT 


BIBLE TEXT DISKS, EDITOR FORMAT 

BIBLE TEXT DISKS, QUILL "_DOC" 

F 256K] Text of the King James Bible on Disk. 
Please state whether you require Editar (plain text) 
or Quill ’_doc’ format. 


SPELLBOUND : 
F 1M 384K) A spelling checker which can check 
spelling as you type! 30,000 word dictionary 


SPELLBOUND SPECIAL EDITION £50.00 
F 512K) Enganced version of Spellbound with 
50.000 word dictionary & many new features. 
UPGRADE TO SPELLBOUND S.E. ........... £30.00 


QUICK POSTERS 
F 2M 128K) Text poster maker, for use with Star 
NL, XB and LC printers. 


ROB ROY BARGAIN PACK 
F 3M 128K) Reviewed in OL WoRId August 1991 


Dilwyn Jones Computing 


41 Bro Emrys, Tal-y-Bont, 
Bangor, Gwynedd LL57 3YT U.K. 
Tel: Bangor (0248) 354023 


DATA BASES 


ADDRESS BOOK & LABEL PRINTER.........£15.00 
[F 2M R 384k] Store names and addresses and 
print them out on a variety of label sizes, or print a 
telephone list, etc. 


DATA DESIGN .. £50.00 

(F 512K] Superb, ‘fast 100% machine code 
datos by PROGS of Belgium, Programmabie via 
BASIC and machine code interfaces - write your 
own database applications in BASIC using the 
DATA Design commands to help you! Runs in 
pointer environment (supplied) 


FLASHBACK 
[F 1M 256K] Fast machine code database which is 
also very easy to use. 


FLASHBACK SPECIAL EDITION ................. £40.00 
[F 2M 512K] Enhanced version of Flashback, new 
commands, report generator, etc 

UPGRADE TO FLASHBACK S.E................... £20.00 
(return Flashback master disk) 


QL GENEALOGIST, STANDARD VERSION... £19.50 
[F 2M 384K] Family trees and family history 
database, one of our best selling programs. 


QL GENEALOGIST SECOND EDITION .......... £30.00 
[F 384K] Enhanced version - for details see our 
advert in QL World December 1991. 

UPGRADE TO SECOND EDITION .................£12.00 
(return Genealogist master disk) 


BUDGET 128K QL GENEALOGIST ...............£12.00 
[FIM 128K] Cut down version for unexpanded 
machines. 


SUPER DISK INDEXER .. £12.00 
[F IM 384K] Catalogue your disk collection asa 
database of files. Store it, print it, search & find 
tiles, make your life easier. 


(F 512K] NEW! A database front end for Archive, 
plus a suite of programs called Chaos Busters. 
Software from EMSoft, U.S.A. 


DBPROGS : 
(F 512K] NEW! A collection of Archive utilities and 
text files to help you learn to program Archive. 
Software from EMSoft, U.S.A. 


DTP 


PAGE DESIGNER 2 PLUS..............-..:00- £40.00 
{F 512K] QL Desktop Publishing program. mix text 
and graphics, make printed pages or posters, use 
clipart, use graphics from other programs etc. 
Prints on most printers, Ask for details! (please 
Note: this program has been delayed, apologies to 
those waiting— please check if available before 
ordering) 


UPGRADE PD2 TO PD2 PLUS 
{Send proof of purchase of old PD2) 


QL HARDWARE 


MINI PROCESS CONTROLLER .................... £59.95 
Relay switched outputs, controlled via QQL serial 
port, 


SOFTWARE TOOLKIT FOR MPC ABOVE £9.95 
[F 128K] Control the MPC fram BASIC programs 
more easily with these extensions. 


NETWORK PROVER .. £3.50 
Plugs between network lead and computer to give 
a visual indication of transmission. 


POSTAGE RATES - SEE BELOW 


OTHER QL SOFTWARE 


PRINTERMASTER 

[FIM 128K] NEW! Tame your printer! Popup utility. 
with menu selection of control codes to send toa 
printer, Want to change fonts, set paper length, 
margins, set up for listings or wordprocessing etc. 
without having to refer to the manual and struggle 
with control codes, Let Printermaster take the 
strain out of living with your printer, 


HOME BUDGET . saci .. £20.00 
[FIM 128K] Domestic bills and accounts program, 
plus a UK Income Tax Calculator. 


REMIND-ME ... “a — £12.00 
[F IM 128K] Dates and events. reminder program - 
remember about birthdays, licence renewals, etc. 
Quick and very easy to use. 


REMIND-ME PLUS a 
(FIM 128k) NEW! Enhanced version with ability to 
schedule twice as many dates, longer event 
descriptions, etc. 

UPGRADE REMIND-ME TO REMIND-ME PLUS ...£10.00 
Return master disk with order for upgrade 


SCREEN ECONOMISER ..........0..:0ccc0e £10.00 
FIM 128K] Turns off the QL display after a set 
number of minutes to protect the screen. 


SLOWGOLD .. Hc sha £5.00 
F 428K] Slowdown routine and control panel for 
software which runs too fast on Gold Card or 
indeed any QL system. 


TASKMASTER .. ere ., £25.00 
[FIM 384K] Task ‘switching utility, ‘Enables you to 
conveniently switch between several programs in 
memory. Calculator, notepad and file handling 
utility included. 


SUPER DISK LABELLER 

[F 256K] Print neat labels for your floppy disks 
listing the filenames on the disk in columns in 
small print. 


THE CAT .. i a £5.00 
[FIM 128K] List files on a disk or cartridge to the 
screen, or print on paper, in columns {optionally 
sorted in this latest version). Useful and convenient 
utility, 


SOFTWARE POSTAGE: Software sent post-free to UK addresses. Abroad add £1.00 per program for postage and packing, 
SUPPLIES POSTAGE: For disks, boxes and stands, add £2.50 for postage to UK addresses. or 10°% of order value (minimum postage £3.50} 


for airmail postage where possible. 


PAYMENT: We can accept payment by cash, cheque (in UK Pounds Sterling only, drawn on UK branch of bank or building society}, Postal Order, International 
Postal/Money order, or Eurocheque. We can also accept payment by these credit cards: VISA, ACCESS, MASTERCARD, EUROCARD and also Barclays 


Remember to sign your order. Goods remain property of DJC until paid for in full. Our telephone number above has an answering machine for when we are 


eee 
VISA 
ee 
EN CONNECT card. Please state your card type, number, expiry date and your address (goods paid for by credit card can only be sent ta cardholder's address), 


unable to answer in persan — dan't be shy! 


